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LISTINGS 


LOVIN 
Sa! 


Sind Sie verliebt? 

Fragen Sie sich, ob Sie mit 
diesem anderen Menschen 
zusammenleben können? 
Haben Sie etwa sogar 
Zweifel? 

Dann sind Sie bei Loving 
64 vollkommen richtig!!! 
Loving 64 weiß, wann 
Menschen zueinander pas- 
sen. 

Durch die Analyse Ihres 
Namens sowie des Namens N 
des jeweiligen Partners 

in Verbindung mit einem 
Vergleichswort erstellt 
Loving 64 eine fast 100%ig 
genaue Voraussage, in wel- 
chem Ausmaß sich Ihre 
und die Vorstellungen 
Ihres Partners über das je- 
weilige Vergleichswort 
decken. 

Wundern Sie sich nicht, 
wenn Ihnen manche Wer- 
te.seltsam oder unlogisch 
vorkommen. 

Überprüfen Sie vielmehr, 
ob Ihnen vielleicht bisher 
etwas an Ihrem Partner, 
egal ob positiv oder nega- 
tiv, entgangen ist, das Sie 
bisher nicht entdeckt 
haben. 

Sie werden feststellen, daß 
sich Ihnen mit Loving 64 
eine neue, großartige Welt 
der Partnerschaftserrech- 
nung eröffnet. Sollten 

Sie mir nicht glauben, 
dann überweisen Sie uns 
bitte DM 3,50 auf Konto 
Nr. 74-567, Sparkasse 
Rastatt, BLZ 665 500 70 
und Sie werden sehen, 

wie schnell sich eine Mei- 
nung ändern kann. 
Ansonsten möchte ich 
noch anmerken, daß ich 
für keine Heirat haftbar 
gemacht werden kann 

und ich von etwaigen bis- 
her noch nicht vorgekom- 
menen Fehlberechnun- 
gen Abstand nehme. 
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Loving 


12 rem 


lovingez=e=m=zeseeszsezsecseszmebl 
28 rem {p) commodare welt == 
32 rem seezezezsmseseszszzezmcgzemummmm 
48 rem (c) by == 
58 rem ph. bertschg == 
&ß rem e= 
78 rem version 2.8 4ßz/ascii em 
88 rem c 64 + 15398/1541 e= 
98 rem SZE 22223 SZ zz sau zzszzzzesum 


189 goto1878 

118 printchrs(19)j:return 

128 printchrst19) j:print: return 

138 printchrs(19)j:formzelto2: print 
ınextmz: return 

148 printchrst19)j:formz=1t0o3: print 
snextmz:ireturn 

158 printchr#s(19) Js formzeitod: print 
ınextmz:ı return 

1588 printchr#s(i9)):formz=1to: print 
ınextmz:return 

178 printchr#(19)j: formz=1to6: print 
ınextmzireturn 

188 printehrst(1P) 1: Formzeito?: print 
ınextmz:ireturn 

198 printchrst19) Js: formz=itoß: print 
ısnextmz: return 

288 printchrst(i19) Js: formzelto9g:print 
ınextmz: return 

218 printchr#(19)Jj:formz=1Itolß:iprin 
tinextmzireturn 

228 printchrs(i19) Js: formz=itoll:prin 
tinextmzireturn 

238 printchrsti9)):formzeitol2:prin 
tinextmzireturn 

248 printchr®(19)J: formz=1tol3:prin 
tsnextmzireturn 

258 printchrs(19) J:formz=itold:prin 
tınextmziıreturn 

268 printchrs(i9) Js: formzeltolS:prin 
tinextmz:ireturn 

278 printcehrs(i9)j:formz=eitold:prin 
tinextmzireturn 

288 printehrst(19) 1: formz=iItol?:prin 
tinextmzireturn 

298 printchrs(19)J:formzeitolß:prin 
tinextmzireturn 

388 printchrsti9) J: Formz=eitol9f:prin 
tinextmzireturn 

318 printchrsti9)): formz=1t029: prin 
tinextmz: return 

328 printchrs(19) ji: formzeito2ß:prin 
tinextmzireturn 

338 printchrsti9) 3}: formz=ito2ß:prin 
tinextmzireturn 

348 printchrs(19)): formzelto2d:prin 
t:nextmz: return 

359 printchrs{19) 3}: formz=ito2ß:prin 


tinextmz:ireturn 

368 dimve#(255) ,w(255),n8(233) 

378 s=34272: hfestiivolestr24d: ezes+t4: 

dr=45 

s38g printchr®#s(3):rem weiss 

398 printchr#(i4):rem gross und kle 
inschrift 

#238 pokeS3289, 8: poke33281,2:rem sch 

warz 

418 tori=sstos+24:pokei ,Qinexti:irem 

clear sid 

428 printcehrs(i4?)irem clr 

438 gosubi2@: printtabt1?7)} "Loving" 

448 gosubil1d: printtab (14) J"e=zmezenen 

zuum!" 

458 gosubi128: printtabti14)3">>>" 

468 gosubi2ß:printtab (23), "x<<" 

4728 gosubi132: printtab (14) g "=ememomnm 

zz!" 

458 gosubi13® 

498 printtabt717*16) By Philip Bert 

schg" 

528 printtabti2))"Angel - Software" 

318 gosub288: print"Wuenschen Sie Er 

klaerungen (J/N *"$ 

getas: ifagß=""then52g 

ifaß="j "then? 
ifast>"n"thenrun 

rem ag="n" 

goto?19 

rem "Erklaerungen" 

printehrst147)J 

5928 print"Geben Sie zuerst das Wort 
oder den..2:.. Begriff ein, mit dem 
verglichen" 

688 print"werden soll." 

618 printiprint"Sie koennen auch ke 
ine Eingabe machen. Dazu muessen 5 
ie nur >Return<”"} 

628 print” druecken." 

6&3@ print:print"Danach sollten Sie 

den ersten Namen ein-geben. 50, nu 

n fraegt Sie der"j 

648 print" Computer nach dem zweite 

n Namen." 

658% print:print"Geben Sie ihn ein." 

6&&® print:print"Danach kommt das Er 

sebnis," 

#78 print:print - 

66% print:print:print"Die Werte wer 

den aufgrund einer statistischen Fo 

rmel aus"; 

69% print” Amerika... „ermittelt 
rıı98 

728 gasub3ßA: input">Return‘ druscke 

n’ja® 

718 rem "Eingabe des Begriffes" 

7283 gosub1498 


Loving 


738 gosub133% 

748 gosub139% 

758 printchrsti4?7)j:print"Bitte War 
ten" 

768@% remtAusrechnent* 

778 ma=® 

7829 fori=itol , 

798 fort=eitolen(nas(i)) 

828 ifmids(inas(i),t,i)=veß(i)thenz= 


Bid nextt 
828 fort=itolen(nas(2)) 
83@ ifmidstinas(2),t,i)=ve$(i)thenz= 


848 nextt 

858 wli)=z 

868% ifz>@thenma=?? 

879 z=d 

839 nexti 

B87R ifma<>?7?7thengosub186% 

988 ifma<S>??thenprintchrs(147) 5 "Der 
Wert ist >> BORRAAd <<":!tfori=1to25d 

dınext:gatoll3ß 

1@ rem "Endrechnen" 

928 o=l 

939 forx=itol-2 

948 printtab(1®) 

9589 fori=itoo-i 

958 wii)ewti)twti+i) 

978 ifwti)>9Pthenw(i)ewti)-18 

98% printwii)} 

9978 nexti 

12488 print 

1818 o=o-1 

18928 nextx 

18394 printchrst147) 

1848 printtab(i@)J "Wert: "j 

125% ifwii1)=ßtheni988 

1869 printinvsiwii)sclsiw(Z2)jeisr" 

%":90sub1859 

1978 gotol1l9% 

1889 ifwt2)=ßthenprintinvsi" 19 8 
AKRRAK" ıJOBubL1E3F: gOto1 19 

1898 printinve"Nur "Jwiz)gelss" %"ı 

gosub184% 

11298 gosub338 

1118 print"Taste druecken" 

1128 getaß: ifaß=""theni129 

1138 printchrs(147)3 

1148 printinvsj"i.) Vergleichswort: 


1159 gosub132 " 
1169 printinvss"2.) Der 1. Name...! 


i17@ gosub1S% 
118@ printinvss"3.) Der 2. Name. ..! 


1198 gosubilß:printtab (20) ı v8# 


m—————t dl 


er 


1288 gosub13@:printtab (28) Inasti) 
12128 gosub1S9: printtab (29) Inas(2) 
1229 gosub2@@:rem vtabig 

123@ print"Wenn Sie Aenderungen mac 
hen wollen,.....30 druecken Sie die 
zu " 

1249 print"aendernde,........Nummer., 
» 


1258 print:iprint"Wenn alles neu gea 
endert werden soll,...s0 geben Sie 
ein >4£. 

125% print:print"S = Ende" 

127% print:print"Bei keiner Aenderu 
ng druecken Sie nur...die )e - Tas 
te, Li} 

12898 gosub33g 

1298 print"Eingabe !: "j 

13994 geteis:ifeiß=""then1308 

1318 ei=vall(eiß) 

1329 ifei$="_"thengoto?5g 

1339 ifei<lorei >5then1308 

1348 ifei=ithengosub1499:9g0t0758 
1359 ifei=2thengosub 1539: 90t0758 
1369 ifei=3thengosub159d:g0t0752 
1378 ifei=4thengoto?28 

1388 itfei=Sthennew 

1398 goto113g 

1488 printchrs(147)} 

1418 vs$="TRUE LOVE" 

1429 print"Welches Vergleichswort : 
H 


1438 input"=> "vs 

1448 ifvs=""thenvs="TRUE LOVE" 
1459 I=zlen(v®#) 

1468 ifl<2thenprint"Vergleichswort 
zu kurz"ifori=1t0o999:next!goto1l498 
1478 fori=itol 

1489 ve$(i)=mids(vs,i,i) 

1499 ve=asc (ve$(i))+128 

1599 ifve<256thenves(i)=chrs(ve): 
1518 nexti 

1529 return 

1538 printchrs(147)3J 

1549 print"Geben Sie den ersten Nam 
en ein :" 

1559 input"=)> "inasti) 

1568 ifna®@(i)=""thengoto1539@ 

1579 a=1:g0sub1458 

1582 return 

1598 printchrs(147)3 

1689 print"Geben Sie den zweiten Na 
men ein :" 

1818 input"=> "inas(2) 

1628 ifna®$(2)=""thengotol59g 

1839 a=2:g0sub1458 

154@ return 

1559 n$=""ıve=g 

1568 fori=itolen(nasta)) 
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167% 
1688 
1698 
1788 
1718 
1728 
1739 
1748 
1758 
1768 
1778 
/decay 


rem 


1789 +ori=tatotestepsp:pokevol, 13 


nsti)=midsinast(a),i,ti) 
ve=asc ({n$(i))+128 
ifve<256thennsti)schrsS(ve) 
nexti 
+ori=itolen(nas(a)) 
nsen$+tn®(i) 
nexti 
naßgla)un® 
return 


"Soundsubroutine" 


pokes+3, 9: pokes+&,®8:rem attack 


1798 pokefif ij: pokesz, 33: forj=iItodr! 


nextj 


19888 pokesz,32: fort=1to22:nextt 


1818 nexti 
1829 return 
1832 ta=25: te=289: sp=13: gosub1?79ir 


eturn 
1849 
turn 
1838 


1918 5 


rem 
rem 
rei 
rem 
rem 
rem 
rem 
rem 


invssechr#s{(l18)!irem invers 
els=chrs(1S5?7)ırem cursor links 
goto34ß 


srechnern laufen zu lassen 
smuessendiezeilen289,318 
‚weggelassenunddiezeilelä8® 

sin >return‘ umgewandelt werde 


te=19: ta=89: sp=-5: g0osub17?77?B:re 
te=84: ta=8d: spel:igösub1??8: ret 


te=15: ta=29:sp=-1:905ub17?7?Yire 


um das proramm auch auf ander 


lovi ng seerzeezmeseeeereacone 


38911 bytes 
24362 bytes 
29297 bytes 
BRDRB bytes 
BABAB bytes 
342532 bytes 


memory 
program 
variables 
arrays 


strings 


free 


PARTNER- 


TEST 


Und noch ein Programm 
zur Erforschung der Er- 
folgsaussichten einer Part- 
nerschaft. Auch hier 

wird jede Verantwortung 
für eventuelle Folgen wie 
Scheidungskosten, Scha- 
denersatzansprüche und 
Alimente-Zahlungen von 
der Redaktion kategorisch 
abgelehnt!! 

Nach Programmstart wer- 
den nacheinander dem/ 
der Benützer/in eine Reihe 
von Fragen gestellt. Diese 
sind in folgender Weise 

zu beantworten: In der 
Bildschirmmitte erscheint 
eine Skala mit Ziffern 
von I — 7. Auf dieser 
müssen nun über die Ein- 
gabe der entsprechenden 
Ziffer die EHRLICHE 
Antwort gegeben werden 
(wenn es Ihnen peinlich 
ist, können Sie ja den 
Fragepartner des Zimmers 
verweisen). Nach der Be- 
antwortung werden Sie 
gefragt, wie wohl Ihr Part- 
ner antworten würde; das 
müssen Sie dann ebenfalls 
nach bestem Wissen und 
Gewissen in der oben be- 
schriebenen Weise einge- 
ben. Haben Sie alle Fra- 
gen auf diese Art beant- 
wortet, können Sie Ihren 
Partner wieder ins Zim- 
mer und vor den Compu- 
ter bitten, denn nun muß 
dieser die Fragen beant- 
worten. Damit hierbei 
das Schummeln nicht so 
leicht fällt, werden die 
Fragen nun in anderer 
Reihenfolge gestellt. Wenn 
nun jeder seine Fragen 
beantwortet hat, gehen 
Sie erst einmal gemütlich 
Kaffee trinken oder tun 


"sonst irgend etwas zur 


seelischen und körperli- 


chen Entspannung. 

Wenn Sie nun meinen, fit 
für die Testauswertung 

zu sein, gehen Sie zurück 
zu Ihrem C 64 und lassen 
sich mittels der >*<-Taste 
die Bewertung ausgeben. 
Hier sei nachdrücklich da- 
vor gewarnt, den Compu- 
ter bzw. den Partner oder 


. sogar beide aus dem Fen- 


ster zu werfen, denn 

selbst ein C 64 kann entge- 
gen der weitläufigen Mei- 
nung einmal irren! Die 
Endauswertung wird näm- 
lich in folgender Form 
gegeben: 


1. Balkendiagramm zur 
Veranschaulichung der 
Interessengleichheit der 
beiden Partner und des 
Einfühlungsvermögens in 
das jeweilige Gegenüber. 
2. Textliche Auswertung 
in Form eines gutgemein- 
ten Ratschlages für beide 
Seiten und einer Emp- 
fehlung zum weiteren Ver- 
halten (also, ob eine Part- 
nerschaft mehr oder we- 
niger sinnvoll ist). 

Und noch etwas: Sollten 
Sie bereits vor dem Test 
geheiratet haben, emp- 
fehlen wir Ihnen, die Aus- 
wertung zuerst alleine an- 
zuschauen. Sollte diese 
allzu negativ ausfallen, 
überdenken Sie vor der 


. Betätigung des > Aus<- 


Schalters am besten ein- 
mal den bisherigen Ver- 
lauf Ihrer Ehe. Sollten Sie 
sich mit Hilfe dieses 
Programmes als Ehebera- 
ter selbständig machen, 
erwünschen wir Benach- 
richtigung und prozen- 
tuale Gewinnbeteiligung, 
Verluste interessieren uns 
nicht. 
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Partner -Test 


18 rem partner-test=========2=2=2=2==44 
22% rem (p) commodore welt = 
3328 rem SZ2Bgzezzezuznszuszmzmumzmzazmzm 
42 rem (c) by 

s@ rem aljoscha schwarz + 
&@ rem florian weiss 

8 rem version 2.9 40z/ascii 
Sd rem c-64 +1541+drucker 


9 rem ezmumzzmesezerssesummnszemeeese 


1283 poke53288, 2: pokeS53281,9:dimasti 

12) ,bSt112),nst112):4=, 308641975190 

sub2418 

118 printehr®(142) :dimk® (49) :g0tolS 

2 

128 printel®gr&"und jetzt der ander 

e bitte..." 

138 printcdsc4s"bitte "rn$res"(retu 

rn>"'rfsgrs" druecken." 

149 getc#: ifc#<>chr#(13)then148 

159 printel$sbl$".......partner-test 
"e48c48c4sgr# 

168 printc4#gr®#"name: "j!inputnaß(r) 

17?@ printcel®blsc4scdäs"........partn 

er-test"c4$c48c4$c4sr+sgrs 

188 print"sie werden im folgenden e 
inige aussagen" 

198 print"ueber einstellungen und i 

nteressen fin-" 

2938 print"den. sie koennen auf eine 

r skala von " 

218 print"i bis ? antworten. bitte 

druecken sie..." _ 

228 print"dafuer die entsprechende 

zahl auf" 

239 print"der tastatur," 

248 print"zuerst antworten sie,wie 

es fuer sie,." 

258 print"zutrifft und dann, wie si 

e glauben, ..." 

26% print"dass ihr partner antworte 

t. "c4$c4$c45c48 

278 printre®s"wenn sie bereit sind, 

druecken sie" 

288 print"bitte "rf$"<return?" 

278 getas:ifa®s<>chrs$s(13) then299 

308 ifr=ithenn=d:90t0338 

s18 printel#s: fori=1tol@B:readnsti) 
ınext 

32I remKKHKKRKRER fragen KRRRRRER 

338 printelS+tcy$tnsin+i)instn+2): n= 

n+2 

348 printc4$c4$c4$gr8s"stimme voll-. 
.uesoeunenn a. ı treß"lehne voll- 

352% printgr®"kommen Zus saoennnneana 
..o:."re$"kommen ab" 


3658 printblsc4$", enooea @---8---8--- 
%---0---0---0" 
8 


378 print... SEID be da 
Pi. PEIFBRE = JPRRBRK - VPHPEES? des 

389 printc4sc4%c4Sye$"fuer mich gil 
397 

378 getasta)iifvall(asta))<lorvall(as 
(a))>7?then398 

#98 printasta) 

418 printc481g98"fuer meinen partner 
gilt:";5 

428 getb#(a)iifval(bsta))<lorvalibs 
(a)) >?thend2% 

4328 printbs(a)ia=arl 


448 getcs: itfa(S4andr=2then333 


458 ifa<188andr=ithen338 

469 ifr=döthenr=I:goto1l28 

47% remXHRHNRKRt auswertung KHIF%* 

489 fori=Bto38:readk$ti)inext 

498 printcl$c4$c4$c4$c46C4$c48cC48ye 

“#"...ende des tests":getas: ifas<)"x 

"then49g 

Ss38 fori=@to83:c=c+tabs(valtlasti))-v 

altas(i+533))) 

S1@ d=d+tabs(vallas(i+33))-valtbsti) 

))iese+tabsivallas(i))-vall(bs(i+33)) 
ınext 

528 c=int (1988-FXc)id=inttiß@-Fd)ıe 

=int(198-f%e) 

532 printchrs(i4)ciscy#".......PART 

NER-TEST "c48c48c48b1# 

548 printcy$"Uebereinstimmung: "jcj" 

%'c48 

Ss5@ co$s=938$: ifc)65thencos=grs 

569% ifc<35thenco$s=sres 

Ss78 print"B"rn®jco®j:!x=int(c/3):#or 

isitox:iprint" "IJinextiprinttab(34)r 

tEcy#"1909% 

588 printpusc4sc48"Verstaendnis "in 

aB(d)j" Fuer "Inasti)g" :"rgdi" red 

$ 


5978 cos=93$: ifd>65thencos=grs 

RBB ifd<3Sthencossres 

618 print"B"rnsjcosjix=int(d/3):#or 
imsitox:iprint" "Jinextiprinttab(34)r 
SPUR" 199%" c4Ec4E 

628 printbiW" veeuene nen NA L IT 
"Fuer "inas(g)5" :"jej" Yıcaz 

639 co$=93%: ife)>6Sthencos=grs 

648 itfe<3S5thencoßeres 

658 print"B"'rnsjco®j:!x=int(e/3):for 
i=sitoxiprint" "jinext:printtab(34)r 
FSbI1E" 100%" cA4Sc48 

669 getas: ifag=""thenddd 

678 ramiXKKKtRtR% kommentar 3%#%%* 
688 printsi$clsbl$"..oea0u0c. PARTNE 
R-TEST"c4$c48gr# 

EB kil=sint(c/20)%4:k2=29+int (d/33)% 
4:K3=2@+int(e/33)%4 

>88 tori=@tolinasli)=chrs(asc(nasti 


SEE SS: Yon 


TESTS. 


Partsvrer -Test 


Y)+128) +rightsinasti),lentnasti))-i 
)inext 

718 k4=32+intt(c+dte) /42) 

728 fori=ßto3:printkstiki+ri)g: next! p 
rintchrs$s(13)3 

738 printnas(D)kstk2)i:printksik2+i) 
iprintks(k2+2)nas(il):printks(k2+3) 

748 printnasti)ks(k3):iprintks(k3+1) 
sprintk$(k3+2)na8(8) :printk$(k3+3) 

758 printyes"Fazit:":;print"Eine Par 
tnerschaft ist "kS(k4):print"zu emp 
fehlen.” 

768 printc4$c48res"....Ausdrucken m 
it "!cys"<%)y” 

PB LrEMERKKKRINR drucken FFRFRRR 
788 geta®: ifase""then?8R 

798 ifas="#"then829 

892 fFori=dtol:inasti)schr$(ascinasti 
))-128) +rightsinasti),lentinasti))-i 
)ınext 

818 90t0338 

828 p®=chrs$(13):openi1,4,15 

834 print#i ’ ” anna ‚PARTNER-TEST" } p® 
Ip p® 

848 print#1,"Namen: 

#1) p$I pSI p$ 

859 print#i1, "VUebereinstimmung: "je$" 
%"5PSIp® 

868 print#1,"B"rn$sjix=eint(c/3):fori 
=sitox:print#1," snext:print#i,rfs 
3 

878 fori=xto34:print#l," 
int#1, "129%" I pSı pS 

888 print#i1,"Verstaendnis "jnas(9)} 
" fuer "inasti)g" sPrdg" %’rp® 

878 print#i1,"B"’rnsj:sx=inttd/3):fori 
=itox:print#i1," "Jinextiprintäi,rts 


"tnas(9)5)"-"Ina 


"ssnext:ipr 


I 

998 Fori=xto34:print#l," 
int#1, "189%" I pBI PS 

918 printHi,"oseesennennn u" 5naßli)} 
"“ fuer "jnas(@);" :"jej" %" 

728 printni. "Bin xeint(e/3):fori 
eitox:sprint#1," inext:print#i,rf® 
) 

938 tori=xto34:print#i1," 
int#1, "122%" I pSI p® 

949 fori=ßto3:print#i1,k$(kl#i) 
sprint#i,chrs(13)3} 

959 print#i1,nas(t@)ksitk2):print#i,ks 
(k2+i1)sprint#i,k$(k2+2)nasti):print 
H1,k8(k2+3)- 

988 print#i1,nasti)k$(k3):printäil,ks 
(k3+1):print#1,k8(k3+2)na$(9): print 
#3,k$(k3+3) 

978 print#1, "Fazit: "iprint#i1,"Eine 

Partnerschaft ist "k$(kd):print#i," 
zu empfehlen." 


ınext:pr 


isnext:pr 


inext 


988% closel:goto?88 

992 end 

1988 remiAXKRHrt daten FRRRRRRRR 
1818 data"ich treibe recht viel spo 
[a AEG RREERE I ERS 

1928 data" .s ua aa Bu as a2 a a2 aaa a Bo a a a 9 mn 0 © 
12838 data"ich schliesse nur langsam 
freundschaft. " 

1048 data".euenunuenneonunnnnn nu nne 


128598 data"sex ist in einer partners 
chaft sehr..." 
1988 data”rwichtig..2seoueonenanunnn 


1878 data"das aussehen meines partn 
ers ist eher..." 
1988 data"eine nebensache. .vcrınnan 
18978 data”"wenn man sich wirklich li 
ebt, kann man " 


1188 data"auch heiraten. .oeaenunsan 


1118 data"ich bin eher religioes... 


1128 ORUEN er ee ee ae ae a ralere 
1138 data"’ich bin lieber in gesells 
chaft als..:.2..” 

1148 data"’allein oder nur mit meine 
m partner.scce." 

1158 data"in meiner freizeit ruhe i 
ch mich am.. 
1168 data"rliebsten aus. vcenoonenana 


1178 data"ich bin politisch eher I 
NEE En 
1188 gatat een“ 


1198 data"ich gehe lieber ins theat 
er als ins.c2.." 
1288 BL KIND nn warn a ee eine a 


1218 data"ich moechte unbedingt ein 
mal kinder....." 

1229 data"’haben. sooo atoonsnsannanen 
1238 data"ich gehe abends am liebst 
en BUScoarnenna" - 

1248 datt. Samen 


1258 data"ich bin ein typischer fru 
ehaufsteher...." 
Tas BEN: air innen 
1278 data"ich tue gern zum spass 9e 
faehrliches...." 


1288 Be ae ee 
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1299 data"ich bin mit der welt so,w 
ie sie ist,...." 
1388 data"ziemlich zufrieden. .:. so. 


1318 data"fuer mich ist treue eines 
der wichtigs- " 

1328 data"ten dinge in einer partne 
rschaft..z2o00." 

1338 data"ich finde bildung ist seh 
r wichtig..22.." 

1348 UBER" a nenne nie 
1359 data”’ich glaube, wenn man eine 
n menschen: ...2." 

1358 data"wirklich liebt, 
le anderen. ....unwichtig." 
1378 data"ich ziehe sonnenbaden ein 
er wanderung:. ss" 

STERN ER YUB a a a ne a 


werden al 


1398 data"mir ist phantasie wichtig 
er alS.seuuuana® 

14988 data'rrealitaetssinn.sceeeeonoonn 
1419 data"zwischen anderen und mir 

gibt es oft...." 

1428 data"meinungsverschiedenheiten 


1438 data"ich fuehle mich oft koerp 
erlich nicht..." 
1449 data"ausgelastet...vcosooonnana 
145@ data"’ich habe einen grossen fa 
miliensinn....." 
1469 EEE ray Ka ta a aaa ee Bee are 


1478 data"ich wuerde fuer meinen pa 
rtner alles...." 
14898 BRETTEN te a te ee a wie Sie 
14998 data"ich glaube, dass liebe au 
f den ersten..." 
1588 data"blick die wahre liebe ist 


1518 data"ich finde die welt ist je 
tzt schon zu..." 
1528 data"ueberbevoelkert. .oosoaaasa 


1538 data”’ich schaue mir sport lieb 
er an, als..." 
1548 data"selbst sport zu treiben.. 


1559 data”’ich finde, frauen und mae 
nner sollten..." 

1568 data"in einer partnerschaft un 
bedingt gleich-berechtigt sein." 
1578 data”’ich fuehle mich wohl wenn 
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mein partner.." 

1588 data"nur in der naehe ist,auch 
wenn Wir.ce.,.gerade verschiedenes 
tun. ® 

1599 data"es ist schoener, 

de partner....." 

168% data"in der liebe schon erfahr 

en sind.zseosoaa" 

1618 data"ich bin lieber mit leuten 
zusammen, die " 

162% data"intelligenter als ich sin 


wenn bei 


ae ala are 
1639 data"in einer vergnuegten gese 
Ilschaft fuehle" 

1648 data"ich mich nicht so wohl w 
ie mit meinem partner allein." 
1858 data"ich wuerde im urlaub eher 
nach italien " 

1858 data"als nach norwegen fahren. 


1678 data"ich bin beim sex sehr exp 
erimentier-...." 
188% data’ treudig, sonen aan 


1698 data"ich wuerde....bei einer h 
eirat queter-,." 
1788 data"trennung vereinbaren. ...: 


1718 data"ich gehe lieber gut essen 
als ins in...." 
1728 data"eine ausstellung. ses ssacn 


1738 data"ich gehe sehr gerne auf v 
olksfeste......" 
1748 data". nu Ba Be a BB Ra Ra aa TE ER TER. 0 0 


1759 data"ich bin sicher, dass es i 
rgendeine art " 

17689 data"hoeheres wesen 
I Sibkicccnsene® 

1778 data"wenn ich jemanden wirklic 
h liebe, ist..." 

1788 data"alles andere unwichtig... 


1798 data"ich bin ziemlich kreativ. 


1898 GEN a ie 


181% data"es macht mir nichts aus w 
enn MeiNn.oeouana" 
18628 data"partner etwas ohne mich u 
nternimmt.zeoa." 
1838 data"ich habe sinn fuer schwar 
zen humor. .c.ca" 
LA RER Mein nero ae ae ler aa age 


18598 data"ich spiele gern gesellsch 
aftsspiele....." 


(z.b. gott 


i ; 


Partner -Test 


18448 Gt” wa nee ie ir ar 
1878 data"mir ist plato sympatische 
r Blue nee” 

1858 data"rarchimedes. v.oveoosononnno 


1898 data"ich bin eigentlich ein or 
dentlicher...:." 
1998 datarmeonsch3 a ee ee 


1919 data"liebe hat nichts mit vern 
unft zu tun..." 
1928 data a iin 


1938 data"miteinander reden ist seh 
r wichtig in..." 
1948 data"reiner partnerschaft..:s:: 
1959 data"ich lerne lieber eine fre 
mde sprache als" 
196598 data"eine neue sportart...r es. 


1978 data"ich bin ziemlich tolerant 


1989 IBtR" ne en ie ae a a 


1998 data"’ich hasse es "haendchen z 
u halten"..220." j 
ZOBO data" .aoonnaann nn nn nn. 
2812 data"’ich habe viele verschiede 
ne hobbies....." 

2029 data". soon oenoos onen nn nn nn 


» 
aan ae a aa aa 00.0 


2938 data"eine liebe kann nicht ewi 
3 dauern. .vso.," 
28349 data" ar aa 2 8 2 2 2 a a a za a a U 5 


2285@ data"ich glaube an aussersinnl 
iche kraefte..." 
2988 Bart iin en iernsn 


2978 data"ich glaube, 
in leiden-.2..:.” 
22889 data"schaftlicher jaeger sein. 


22998 rem%%* kommentar daten ##X%* 
219@ data"Sie sind als Partner voel 
lig ungeeignet} " 

zii data"Ihre Interessen, 
ungen und Ge-.." 

2129 data"fuehle sind absolut unver 
einbar mitein- " 

2138 data"ander. Sie beide sollten 
sich besser....aus dem Weg gehen." 
2148 data"Sie sind als Partner eige 
ntlich nicht..." 

2159 data"geeignet.Ihre Interessen, 


ich koennte e 


Einstell 


Einstellungen " 

216@ data"und Gefuehle sind ziemlic 
h verschieden. " 

2172 data"Es ist fuer Sie beide bes 
ser „ Ihren....eigenen Weg zu gehen 
u 

2188 data"Sie haben zwar einige gem 
einsame Inter- " 
2198 data"essen, 
ver eine engere" 
2288 data"Bindung gut genug versteh 
en, ist sehr..." 

2218 data"fraglich. Es ist fuer Sie 
beide besser, nur gute Freunde zu 


aber ob Sie sich f 


bleiben." 
2228 data"Sie haben eine Menge geme 
insam. Sie sol- 


2238 data"ten sich Bigentlich zieml 

ich gut verste-" 

2248 data"hen, auch wenn es ab und 

zu zu kleinen " 

2258 data"Reibereien kommt. Eine en 

gere Beziehung koennte interessant 

werden." 

2268 data"Glueckwunsch |! 

Menschen auf so" 

2278 data"gleicher Wellenlaenge lie 

gen ist wirk-.." 

2288 data"lich selten. 

enseitige Ein- " 

229@ data"fuehlungsvermoegen auch n 

och gut ist,...sind Sie das ideale 

Paar." 

238% data",Sie sind wirklich kein" 

2318 data"Menschenkenner. Sie koenn 

en sich ueber-","haupt nicht in " 

2328 data"einfuehlen. In einer Part 

nerschaft gibt das sicherlich Probl 

eme!" 

2339 data", Ihre Menschenkenntniss" 

2349 datarist durchschnittlich gut 

entwickelt.,Sie", "koennen sich recht 
gut in " 

2359 data"reinfuehlen.Ab und zu gibt 
es aber wohl doch Missverstaendni 

sse .„" 

23698 data",Sie sind ein ausgezeichn 

eter" 

2378 data"Menschenkenner.Es besteht 
kein Zweifel,","dass Sie sich sehr 
gut in " 

23688 data"einfuehlen koennen. Ihr P 

artner ist in dieser Hinsicht zu b 

eneiden." 

2398 data"absolut nicht", 

aessig ",‚"bedingt" 

2499 data" ","durchaus", 

Fall" 


Dass zwei 


Wenn das geg 


"nicht", "m 


"auf jeden 
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Partner - Test — 


rem partnertest=======2==22==644 
ec$=chr$(889):rt$=chrs$ (913) 
sl$8=chr8(@14):c48=chr$(817) 
rn®=chr8(818) :hes=chrs (2919) 
des=chr$ (829) :ee$=chr$(927) 
re$s=chr8$ (828) :c3$=chrs (429) 
gr$s=chr#(839):bl8=chrs (831) 
si$=chr#$(832) :0e$=chr$(129) 
fa$=chr$(139):#b$=chrs(131) 
i8=schrs(133): F34echr8 (134) 
+5$=chr$(135) :#78=chr8 (136) 
f2$8=chr$(137):#4$=chr$ (138) 
+68=chr$(139): #88$8=chrs$ (149) 
sr®=chrs(141):su$=chrs(142) 
bk®#=chr$(144) :c2#=chr8(145) 
rf®$=chr#(144):c1®8=chr#(147) 
in$=chr$(148) :br$=chrs$(149) 
Ir$=chr$(159):giS=chrs$(151) 
928=chr8 (152): l19&=chr#(153) 
I1b$=chr#(154) :938=chrs (155) 
pusschr$(156):c18=chr$(157) 
yes=chrs(1358) :cy$=chr$(159) 
s2$=chrs8 (159): s38#=chr# (224) 
zis=chr$(B96) : z28=chrs$(998) 
z3$=chr8(123):z4$=chr$ (171) 
z5$=chr$(173): z48=chr$ (174) 
z?&=chr8(176) : z8$=chr8(177) 
z9%=chr&(178) : zas=chr#(179) 
zb$=chrs$s(189) 

return 

rem partner test =========22=244 
rem 38911 bytes memory ==== 
rem 11945 bytes program 
rem 88413 bytes variables 
rem Q1168 bytes arrays 
rem QQ199 bytes strings 
rem 25284 bytes free 


RIVER RAID 


Das Programm entspricht 
den Regeln des bekann- 
ten Arcade-Games unter 


falls abgeschossen wer- 
den. Wichtig ist, daß zu- 
erst der erste Teil eingela- 


dem gleichen Namen. 
Aus Speicherplatz-Grün- 
den wurde auf die Mög- 
lichkeit verzichtet, Ben- 
zintanks zu überfliegen’ 
und dadurch aufzutan- 
ken, es wird keine Ben- 
zinanzeige gemacht. Die 
Benzintanks sind ebenso 
gefährlich für den Piloten 
wie die übrigen Figuren 
und müssen daher eben- 
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den und gestartet wird. 
Ist dies geschehen, fordert 
Sie der Computer auf, 
das Datenband zu starten, 
damit der zweite Teil 
nachgeladen wird. In die- 
sem Programm wurde die 
Laderoute für Kassetten- 
betrieb gewählt, diese ist 
bei Verwendung einer 
Disketten-Station abzu- 
ändern. 


10 rem river raid teil 1 ========-20 
20 rem (p) 02/86 cbm + cw team ts = 
90 rem ======-=-.=-2=-=-=-222=2=2=2=2=2200 002020 
40 rem (c) 10/85 by g. krull = 
50 rem = 
60 rem - = 
70 rem version 2.0 22z/ascii = 
80 rem vc-20 + 3k + 1530/1541/joy = 
90 rem ======-=-=-=-=22=====22020=2=== 02000 


100 c4$=chr$ (017) :c1$=chr$ (147) 

110 rn$=chr$ (018) :rf$=chr$ (146) 

120 wh$=chr$ (005) :c3$=chr$ (029) 

130: data169, 31.193.232 .162.22,.150,2 

55,169,0 

140 data133,251,177,251,134,251,145 
‚251,136 ,208 

150 data243,169,0,133,251,177,251,1 
34,251,145 

160 data251,198,252,169,29,197,252, 
208,236,96 

170 48:30,0,0,0,0,.0.0,8 

180 data255,127,63,;,31.,195;7;3,1 

190 datal,3,7,15,31,63.127,255 

200 data255, 254, 252,248,240,224,192 
‚128 

210 datal28,192,224,240,248,252,254 
„255 

220 data36,74,16,68,49,140,50, 8 

230 data255,129,191,135,191,129, 255 
;O 

240 data24,60,60,153,255,255,24,126 
250 data129,129,129,0,0,129,129,129 
260 data255,255,0,170,0,255,255,0 
270 data231,195,129,231,195,129,231 
»291 

280 data231,231,195,195,129,129,0,0 
290 data1l26,126,74,74,122,126,0,255 

300 data255, 255,255 ‚255,255 ,255 ‚255 
299 

310 datal26,90,90,66,36,36,24,24 
320 data60,66,126,126,126,126,66,66 

330 data4,200,73,33,34,12.192.120 

340 datai2,50,195,16,73,74,132.137 

350 data231,231,129,219,219,195,195 
4255 

360 data195,195,255,255,195,195 , 255 
238 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


data60,66,1593,161,161,153,66,60 
dataß3,57,537.57.,.37.37,57,.63 
data62,14,14,14,14,14,14,14 
data63,39,7,7,7.63,32,63 
data63,39,7,14,14,7.39,63 
data62,46,46,46,63,63,14,14 
data63,32,63,63,7,7.39,63 
data63,35,32,63,39,39,39,63 
aatae3,.39,7,.7,7,7,7,7 
data63,57,57,63,63,39,39,63 


PP], ——————— 


River Raid Teil E 


River Raid Teil 2 


470 data63,57,57,57,63,1,63,63 

480 fora=7168t07679:pokea,peek (2560 
O+a) :next 

490 fora=0t0207:readb:poke7168+a,b: 


fora=0t079:readb:poke7552+a,b:n 


poke631,131:poke198,1 
rem river raid teil 1 =======20 
rem 06655 bytes memory 

rem 01908 bytes programm 
rem 00056 bytes variables 
rem 00000 bytes arrays 

rem 00006 bytes strings s==== 
rem 04685 bytes free (0) 


River Raid Teil 2 


10 wh$=chr$ (005) 
20 cl$=chr$(147) 
30 rn$=chr$ (018) 
40 bl$=chr$ (031) 
50 re$=chr$ (028) :ye$=chr$ (158) 
60 c1$=chr$ (157) :he$=chr$ (019) 
70 forg=1t03:q1$=q1$+c4$:nextg 


80 dima$(115) 

90 goto670 

100 383t325,32.,.2,.25,32,121,128.21.12,7 
2 

110 data217,40,213,40,223,40,227,20 
‚234,20,230,40 

120 data227,20,234,20,230,40,223,40 
‚227 ,40.,217.,40,213,60,-1 

130 fa=>5:poke36869 , 255 

140 a=0o:b=30720 

150 förc=-1t9822 : Brint "reiner, „ . -F 
rrrrrrrr"::next:printhe$; 
pokea+tb,0:pokea,12 

readj :ifj=-1then200 
readm:poke36875,j:forn=1tom*4:n 
:poke36875,0:forn=1t020:next 
gotol170 


:gr$=chr$ (030) 
:c4$=chr$ (017) 
ır£f$=chr$ (146) 
:bk$=chr$ (144) 


200 forc=115tolstep-1:reada$(c) :nex 
t 

210 forc=1t0115 

220 ife=1thenpoked ,32:poked+tb,fa:d= 


d-22:ifpeek (d) < >32thengosub350 

230 £f=((peek (37137) and16) =0)-((peek 
(37152) and128) =D) 

240 pokea,32:pokea+tb,fa:a=atf 

250 sys7168:printhe$a$(c) ;:ap=peek( 
a) 


260 
540 
270 
b,0: 
280 


pokea+tb,0:pokea,12:ifap< >32then 


ife=1thenifpeek (d) =32thenpoked+ 
poked,13:90t0290 

gosub350 

290 ife=1then330 

300 if (peek (37137) and32) =Othene=1:d 
=a-22:ifpeek(d)< >32thene=0:t=0 

310 poke36877,0 

320 goto340 

330 poke36877,253 

340 p=p+1:next:goto210 

350 dp=peek (d) :poke36877,0 

360 ifdp=11thenp=p+400:tn=36876 :pb= 
11:gosub420 ::goto400 

370 ifdp=14thenp=p+200:tn=36877:pb= 
10:gosub420: goto400 

380 ifdp=19thenp=p+500:tn=36877:gos 
ub470 ‘ 

390 goto410 

400 poked ,32:poked+b,fa 

410 poke36878,15:e=0:d=0:k=0:t=0:re 
turn 

420 poketn,200 

430 for1l=10to00step-1:poke36878,1:po 
ked,32:poked+b,0:poked,pb 

440 next 

450 poked ,32:poked+b,fa:poketn,O 
460 return 

470 poketn,200:forl=10tolstep-1:pok 
e36878,1 

poked ,32:poked-22,32 
poked+b,0:poked-22+b,0 

poked, 22:poked-22,21 

next :poked ,32:poked-22,32 
poked+b,fa:poked-22+b,fa:poketn 


return 

poke36877,200 

forc=1to010 

560 pokea+tb,int(rnd(1)*8) :pokea,10: 
poke36878,16-c 

570 foro=1to10:next 

580 pokea+tb,fa:pokea,ap 

590 £foro=1to1l0:next 

600 next :poke36877,0 

610 printcl$qgi$rn$bk$"..you lost yo 
ur ship..":ifp>hthenh=p 
ford=15tolstep-1:poke36878,d 
fora=-254t0244step-5 :poke36876,a 
forb=1toint (a/50) :next :poke3687 


forb=1toint (a/50) :nextb,a,d 
restore 

670 poke36869,255:poke36879,8:poke3 
6867,44:poke36878,15 

680 b=int (peek (244) /2) *512-peek (648 
)*256 
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River Raid Teil = 


690 printrn$scl$whscag"...... river r 


1160 datarrrrrrrrh frrrrrrrr 
aid'’gr$ 1170 datarrrrrrrh frrrrrrr 
700 printqgi$" n...."wh$"200'"gr 1180 datarrrrrrh frrrrpr 
710 printc4$" k....'"wh$"400'"gr$ 1190 datarprrrh frrrar 
720 printc4g" 1200 datararrh frrirr 
t"c4$c1$"s...."wh$"500" 1210 datarrrh frrr 
730 printc4$c4$re$"... .SEHEEEEEEEEE 1220 datarrr rrr 
K&'" 1230 datarrr t rrk trr kkrrr 
740 1240 datarrrtst rrk strr rrr 
print"....&"rn$ye$".press.fire.'rf$ 1250 datarrrsts rrk tsro rrr 
re$"&' 1260 datarrr s rrk s rrnnnnrrr 
750 print"... .&&&&EEEEEEEEER" 1270 datarrr rr rr rrr 
760 printc4$rn$wh$"score:'"rf$p. 1280 datarrr rrnnnnrr rrY 
770 printc4$rn$'"high.:"'rf$h 1290 datarrr Fr Fr. rrr 
780 printgr$c4$"y'rn$".by.krullrfg 1300 datarrrnnnnrr rr rrr 
; 1310 dataror rw wr rrr 
790 o=peek (211)*813 1320 datarrr rxX xr ror 
800 forc=1tol0:readk:pokeo+13+b,w:p 1330 datarrr rx xt rrr 
okeo+13,K:next 1340 datarrr FrFE 
810 forc=0t09:poke7470+c,255:poke74 ° 1350 datarrri grrr 
71+c,0:if (peek (37137) and32)=0then84 1360 datarrrri grrrr 
0 1370 datarrrrri gerIrE 
820 fork=1to1l0:next 1380 datarrrrrri grrrrrr 
330 next:goto810 1390 datarrrorrri grrrorrr 
840 e=0:p=-0:poke36879,28:0=peek (211 1400 datarrrrrrrri grrrrrrrr 
)*813:printcl$gr$; :poke37154,127:90 1410 datarrrrrrrrr rrrrrrrrr 


tol00 1420 datarrrrrrrrrnnnnrrrrrrrrr 


850 datarrrrrrrrrnnnnrrrrrrrrr 1430 datarrrrrrrrh frrrrrrrr 
860 datarrrrprrrr rrrrrrrrr 1440 datarrrrrorh frrrrrir 
870 datarrrrarrrh frrwrrorr 1450 datarrprrrh frrorrr 
880 datarrrrrrrh frxrrrrr 1460 datarragrrh frrrrr 
890 datarrrrrrh fxXrrrrr 1470 datarrrrh frrrr 
900 datarrrrrh frrrrr 1480 datarrrh frrr 
910 datarorrh £rrrr 1490 datarrh frr 
920 datarrrr rrrr 1500 datarr fr 
930 datarrrrk rrrr 1510 datarr rr 
940 datarrrrk rrrr 1520 datarr ro 
950 datarrrrk rrrrrrrr rorr 1530 datarr rrrrrrrrrr rr 
960 datarrrr rrrrirrr rrrr 1540 datarr t rrrrrrrrrrnnnnrr 
970 datarrrr rrrorrrr rrrr 1550 datarr s rrkkkkkkrr rr 
980 datarrrr trrrrrrrr rerr 1560 datarr rrkkkkkkrr rr.- 
990 datarrrr srrrrrprr Frir 1570 datarr t rr rr rr 
1000 datarrrr trrrrrarrnnnrrrr 1580 dataor s rp rrk rr 
1010 datarrrr srrrrrrrr rrrr 1590 datarr rar tt rr rr 
1020 datarrrr rrrwrrrr tt rrrr 1600 datarr rrrtsst rr or 
1030 datarror rorxrrorts rrrr - 1610 datarr rr stsrr rr 
1040 datarrrr rrrxrrrrs rror 1620 datarr rw s wr rr 
1050 datarrrr kkkkkkkk Ferir 1630 datarrnnnnrx xr rr 
1060 datarrrr rrrr 1640 datarr rx 'xr rr 
1070 datarrrr Trrr 1650 datarr rr 
1080 datarrrri grprr 1660 datarr rr 
1090 datarrrrri grrarr 1670 datarr rr 
1100 datarrrrrri grrrrrr 1680 datarr t er 
1110 datarrrrrrri grrrrrrr 1690 datarr - kk e ro 
1120 datarrrrrrrri grrrrrrrr 1700 datarr rr 
1130 .datarrrroorrr IrrErIITT 1710 datarri grr 
1140 datarrrrrrrrrnnnnrrrrrrrrr 1720 datarrri grrr 
1150 datarrrrrrrrr rrrrrorrr 1730 datarrrri grrrr 
14 
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1740 datarrrrri grrrrr 238 ifz>Sgorz‘2theni149 

1750 datarrprrri . \geerrorr 248 forx=itoz 

1760 datarrarrrri grrrrrrr 258 printcel$" --------------------- 
1770 datarrrrrrrri grrprrrrr 2589 print" eingabe des" 

1780 datärrrrrrrrr rrrgrrrrr 278 print" gleichungssystems" 

1790 datarrrrrrrrrnnnnrrrrrrror 288 print" -------------------- " 
1800 datarrrrrrrrh frrrrrrrr 298 printcd$" geben sie die" 

1810 datarrrrrrrh frrrrerrr 3288 print" koeffizienten der" 

1820 datarrrorrh frrrrrir 318 print" "x5ct$"-ten" 

1830 datarrrrrh frrrrr 329 print" gleichung ein. "cds 

1840 datarrrrh frror 338 fory=itoz+i 

1850 datarrrr rrrr 348 input" k= ";u$ 

1860: datärrrr t. frirrrk rrrr 359 ifug=""thenprintcu$cu$:goto348 
1870 datarorr ts rrrrrrk rrrr 3659 u=val(u$) 

1880 datarrrr s rrrrrrk rrrr 378 alx,y)zu:sus="" 

1890 datarrrr rrpoornnnnrrrr 388 nexty:nextx:w=2 

1900 datarrrr rrarrw Erer 378 printcl$" --------------------- 
1910 datarrrr rrrirrx ELF” 488 print" berechne" 

1920 datarrrr rrrrrx rror 418 print" lvesungsmenge". 

1930 datarrrr rrrr 428 print" ----------------- ---- "cu 
1940 datarrrri grrrr $Scu$cu$ 

1950 datarrrrri grrrpr 438 forx=wtoz 

1960 datarorrrri t "grrrrar 448 ifalx,w-i)=dthen5dg 

1970 datarrrrrrri s grrrrrrr 459 F=alw-1,w-1)/alx,w-1) 

1980 datarrrrorrri grrrrrrrr 468 fory=itoz+i 

1990 datarrrrrrrrr YrerrrYrrYrr 478 alx,y)zalx,y)*f 

2000 rem river raid teil 2 =-=====20 488 alx,y)=zalw-1,y}-alx,y) 

2010 rem 06655 bytes memory ===e=m 499 nexty 


2020 rem 05680 bytes program ===em 505 nextxiwswti 

2030 rem 00000 bytes variables ==== 519 ifwf=zthen438 

2040 rem 00000 bytes arrays zu=m= 5268 forx=itoz 

2050 rem 00000 bytes strings z=== 539 1(x)=8 

2060 rem 00975 bytes free (0) =-=-== 549 nextx 

2070 rem =====-=-=-=-==2===== === ==0o0umm 0558 forx=ztolstep-i 
a — ©) 0) d=a(x,z+ti) 

18 rem lineare gleichungssysteme = 578 fory=ztolstep-i 

28 rem (p) 84/85 cbm revue team =. 589 d=d-I(y)Xalx,y) 

3A rem SSESS22S=222 2222252222 S2S0002222 sog nexty 

48 rem (c) 12/84 stefan mutter = dd ifalx,x)=dthensdg 
Sd rem programmiert in cbm v2 = 6198 1(x)=d/alx,x) 

89 rem fuer alle cbm computer = 628 nextx 

7&£ rem mit i1ödk-speicher = 636 printcl$" --------------------- 
88 rem cbm + 1539/1541 = 648 print" ergebnis der” 


94 rem 3222222352222 2252255522555 == 658 print" berechnung" 

188 c1$=chr&$(147):cd$=chr&$(17) 65ß print" ----------=---------- " 
118 ho&=chr$(19):ct$=chr$(157) 678 printcd$" die loesungsmenge":pr 
1283 cu$S=chr$(145):ch$=chr$ (29) int" des gleichungs-" 

138 dima(59,59):diml (59) 688 print" systems ist" 

148 printcl$" --------------------- 698 print" 1= [("ct$sct$ct$ct$ct$j 
152 print" loesung linearer" 788 forx=sitozie$=sstr&(l(x)) 

168 print" gleichungssysteme " 718 printtab(?)e$" ;"inextx 

178 print" --------------------- A 728 printtab(len(e$)+8)cu$")] 

188 printcd$" wie hoch ist die an- 738 printcd$scd$" ------------------ 
179 print" zahl der gleichungen " ee 

289 print" und unbekannten "jtinput 748 print" neues berechnung":print" 
z$ (ja/nein) ?" 

z18 ifz$=""then18g 758 print" --------------------- u 
228 z=val(z$) 788 getas$ 
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ifa$="j"theni4g 
ifa$="n"thenend 
goto?äsfd 
printcl$" 
print" gleichung leider" 
print" nicht loesbar" 
print” 
goto?38 
rem lineare gleichungssysteme 
rem 38911 bytes memory 
rem 82139 bytes programm 
rem 89119 bytes variables 
rem 13276 bytes arrays 
799 20924 bytes strings 
18 23353 bytes free 

BE rn em ne Fe Pe I ee en 


LÖSUNG LINEARER 
GLEICHUNGSSYSTEME 


778 
7883 
798 
=1777] 
81a 
828 
838 
848 
858 
869 
878 
889 
8978 


Es ist in Commodore _ 
Basic V2 geschrieben und: 
läuft unverändert auf allen 
Commodore-Computern 
mit 40 Zeichen je Zeile 
und ausreichend RAM- 
Kapazität. Anwender 
kleinerer Geräte müssen 
die Dimensionierung in 
den Zeilen 130 ver- 
kleinern. 


Dieses Programm nimmt 
dem Anwender die oft 
wiederkehrende, monoto- 
ne und z.T. auch zeitauf- 
wendige Arbeit des Lösens 
von Gleichungssystemen 


zuverlässig ab. 


JOY- 


CONTROL 


Mein “Fremdgehen“ mit 
einem Apple II hatte Fol- 
gen: Ich war recht ver- 
wöhnt von dem Sekonic- 
Plotter, der über eine se- 
rielle Leitung mit dem 
Apple verbunden war. 
Vor allem das Tastenfeld 
zur Handsteuerung des 
Plotters hat es mir ange- 
tan. Nun bekam ich, leih- 
weise, einen Commodore 
1520 Plotter. Dieser hatte 
leider nicht den Komfort 
eines Sekonic, aber für 
seine Preisklasse ist er 
doch recht beachtlich. Nur 
das kleine Tastenfeld fehl- 
te mir jetzt irgendwie. 
Nun, so kam ich schließ- 
lich auf die Idee, das Ta- 
stenfeld mit der Compu- 
tertastatur zu simmulie- 
ren. Und als dies tatsäch- 
lich funktionierte, habe 
ich auch gleich eine Ver- 
sion für Joystick-Fans er- 
stellt. 

Hier nun einige Hinweise 
zur Bedienung: 
Gesteuert wird der Plot- 
ter mit den Tasten ‘H“ 
und ‘L‘ in der Horizon- 
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talen, sowie mit den 
Tasten ‘I‘ und ‘M‘ in der 


. Vertikalen. (Hier erkennt 


man, welchen Einfluß 
der Apple auf mich ge- 
nommen hat.) 

Die Diagonale wird mit 
den Tasten ‘U‘, *O‘, ‘N‘ 
und dem ‘,‘ beeinflußt. 
Die Space-Taste hebt und 
senkt den Stift. 

Mit der CLR-Taste be- 
wegt sich der Stift zum 


0,0. 
F-] dient zum Farbwech- 


se 
F-3 beeinflußt die Schritt- 


weite (1-20) (F-4 d.t.o.) 
F-5- beeinflußt die Art der 
Linie (0-15) (F-6 d.t.o.) 

0 = durchgezogene Linie 
1 = gepunktete Linie 
größer 1 = gestrichelte 
Linie. 


Die Joystick-Version hat 


die gleichen F-Tasten-Funk- 


tionen. 

Drücken des Feuerknopfes 
hebt oder senkt den Stift. 
So, dann viel Spaß mit 
diesem Programm. 


18 rem joygraphcontrol S=e==22=2=2==2>p4 
28 rem (p) commodore welt = 
4 rem (c) by = 
Sg rem martin purucker = 
689 rem = 
78 rem version 3.5 49z/ascii = 
88 rem plus 4 + 1531/1541 = 


189 rem hinweis!'programm laueft auf 
c-15/116 nur ohne rem’s und ohne z 
wischenraeune 

118 rem in den programmzeilen (spei 
cherplatzmangel) 

128 rem joystick port i 

138 trap839:color4,8:color@,1:color 
1,4:key8,"h" 

148 ras=chr$(18) :fa$=schrs(13@) ro0$= 
chr$(146) 

159 rem menuckKKKKK KHK 
1659 graphic@,1:char1,19,2, fa$+ras+" 
J0y-graphiccontrol":print 

178 char1,8,4, "steuerung :" 

158 charl1,2,6,ra$+"joystick"+ros+" 
-malen" 

198 char1,2,7,ra$+t"joystick+feuer "+ 
ro$+" -bewegen" 

289 char 1,2,8,ra$+"b"+ros+" -viere 
ck zeichnen (drehw. 3st,)" 

218 char1,2,9,ra$+"c"+ros+" -kreis 
zeichnen (radius 2st.)" 
228 char1,19,18, "winkel zw. 
st. }" 

238 chari1,2,11,rast"e"+ro$+" -ende" 


segm. 3 


248 char1,2,12,ra$+"]"+ros+" -raus 

aus leerem k." 

259 char1,2,13,ra$+"n"+ros+" -wiede 
r normalzustand"” 

268 char1,2,14,ras+"o"+ros+" -obere 
ecke (vor b)" 

278 char1,2,15,ra$+"p"+ro$+" -ausma 


len” 

288 chari1,2,16,ra$+"space"+ro$+" -s 
chrittweite aendern" 

298 char1,2,17,ra$+"u"+ros+" -unter 
e ecke (vor b)" 

389 char1,2,18,ra$+t"v"+ro$+" -raus 
aus vollem k." 

318 char1,35,23,ra$+"space"+ro$ 

329 rem hauptprogr ammXXXXXXxX%X 

339 getkeyas!scnhcelriifx<>@then35g 
348 color4,7,6:color®,2:color 
i1,1:char1,2,2,"schrittweite ?"igetk 
eysu 

358 ifx=@thengraphici,iielsegraphic 
1,8 

358 locate159,99:x=159:y=99 
372 rem get-kontrollett33%%% 
389 jo=joy(i1):ko=si!getas:ifas=" 
engetkey sw 


"ch 


5. _ 


Jo»ygraphcontrol 2 Echter Bruch 1 


379 
a8 


circlel,x,y,z*ißte, ,;,,,d1%X1980+d2*18 


528 


ifa$="p"thenpainti1,x,Y 
ifa$="c"thengetkeyz,e,di1,d2,d3: 


ifag="v"thenkv=el:vei 
ifag="n"thenkv=d: vv=ß 
ifag="]"’thenkvseliveß 
ifa$="o"thenxl=ex:yil=y 
ifag="u"thenx2=x:y2=y 
ifa$="b"thengetkeyd1,d2,d3:boxi 
y1,x2,y2,d1%X1@0+d2%*%1@+d3 
ifa$="e"thengraphicclriscnclrie 


ifa$="h"theni6ß 

rem joystick-kontrolle*X%%%* 
ifjo>’128thenjo=jo-128:ko=8 
ifjo=-8thenS58g 

onjogosub 628,639, 649,659, 669,4 


72,6939,6978 


rem pixel-positionskontrolle 
ifx=<@thenx=318 
ifx=>319thenx=i 
ify=<dtheny=198 
ify=>199theny=il 

g9osub?7i® 
ifv=slandvvsithendrawi1,x,y:vv=2 
goto388 

rem upr joystick-bewegung* 
y=y-i%swireturn 
x=x+t1l%tsw:y=y-1l%swireturn 
»=xt1%swireturn 

x=xtitswi y-ytliswireturn 
yzyti%swireturn 
x=x-1tswiy=y+tliswireturn 
»=x-1%swireturn 
x=x-1%swiy=y-1iI%swireturn 
ko=l1:return 
itkv=landvv=ßthenvvsi 
ifkv=ithen return 
ifjoyti)<i28andjoyt1)<>B8thensgg 
rem blink-pixe1lXXXRXHRR* 
locatex,y 

draui1,x,Y 

fort=itolß: next 

dran, x,Y 
fort=1tolß:next:ireturn 
drawko,%,Y 

return 

rem get-fehlerkontrolle*x**%* 
graphic®,i:ichar1,19,6,tfa$+"fals 
eingabe !";getkeya$ 
graphic1,@:poke239,@B:resume33ß 
rem joygraphcontrol 
rem B5Q&71 bytes memory 
rem 815154 programm 
rem BOBRAE variables 
[71512171570] arrays 
BARDOE strings 
845517 free(ß8) 


u mn un mm mn wen mm me mm mn mn mn mn mn mn mn m mn mn m mn mn m mn nn 
2222222 2222 ZZ 255222 


zzzzz=s„e—= 


B + 


U | u a u En oe] 


189 rem echter bruch ============c16 
28 rem (p) commodore welt = 
38 rem ======2=2=2 522222222225 53525555 5 
49 rem (c) by = 
58 rem h-j turban = 
68 rem = 
7A rem version 3.5 49z/ascii = 
88 rem ciöd/ciiö/plus 4 + 1531/1541= 
9A rem =====2S52E22222222222555555 2555 
189 c94$=chr$(17?) 

118 rem c 116 und alle anderen 

128 rem geben sie auto Iiß ein 

138 rem die rem’ koennen sie verges 
sen 

148 rem berechnung der ganzen 

158 scnhcelriremerr$"bei anderen cbm 
168 printc4$"zaehler" 

178 input w 

188 printc4$"nenner" 

198 input e 

288 scnclriremerr$ bei anderen cbm 
z1i@ g=einttw/e) 

228 r=w-g%te 

238 if r=8 then goto 27% 

248 goto 359 

258 printcd4$ 9" "r"/"n 

268 goto 288 

273 printg 

288 printc4#"fuer weitere berechnun 
g" x 

298 printc4$"space-taste druecken” 
399 get 38 

318 if a$si>" "then goto 398 

328 goto 159 

334 rem groester gemeinsamer 

348 rem teiler 

358 it e>r then a=se:ber 

368 if e<d then asr:!b=e 

378 x=int(a/b) 

388 t=a-x%b 

398 if t=8 then goto 438 

498 a=b 

418 b=t 

428 goto 3798 

438 scncelr 

448 r= r/bin=e/b 

458 goto 259 

468 rem echter bruch ===========c16 
478 rem 912277 bytes memory == 
488 rem 9697986 bytes programm == 
498 rem A90099 bytes variables == 
586 rem AO9A0d bytes arrays == 
518 rem 090099 bytes strings == 
528 rem 811577 bytes free == 
539 rem =======2== 2222252552555 5552255 


Fhoesnix 


19 ren phoenix ===2=2==22=2=2==2====2=2=44 
28 rem (p) commodore welt 

48 rem (c) by ph. bertschg = 
S@ rem d. schorpp = 
68 rem = 
78 rem version 2.9. 4oz/ascii = 


E-643 + vc-15317/1541 


188 cl$=chr$(147):rn$=chrs$(18) 

118 rf$schr$(146) :s1$=chr$(32) 

128 a2$=si$+s1$:33$=32$+51$ 

139 ads=a3$+s1$:35$=34$+51$ 

148 z7?&=chr$ (176) :28$=chr$(177) 

159 z6$=chr$(174):29$=chr$(178) 

169 23$=chr$(123) : z5$=chr$ (173) 

179 zb$=chr$(189):y5$=chr$(166) 

188 yh=-y3htrySsty3s+ty5sty5$ 

174 yaszyfhtyf$: yz$=yastyas 

288 r5$=chr$(117):r3$=chr$(195) 

219 zi$=chr$(96):12$=zi$tzi$ 

228 1v&=1z$+1z$:mi$=chr$(125) 

238 r1$=chr$(1968) :r2$=chr$(197) 

2489 mz&=ml$+mi1$:!md$=mz$+mi1$ 

259 mv$S=md$+m1$:po$s=chr$ (94) 

2588 pl$&=chr$(95) 

2728 9002999 

288 ifpeek (198) >öthengetsds$:s@=asc 
s@$):ireturn 

298 s@=s4direturn 

309 pokevo,fz:pokesz,dd:pokehf,n:po 
kesz,zdireturn 

318 rem *%%% phoenix 3%* 

328 rem by ph.bertschg/ d. schorpp 
33@ dimj (29) 

348 y=-5:k=1 

359 printcls 

352 gosub1249 

378 printcl$:p=s1 

388 printy-1527$28$z26$tab (18) rn$sis$ 
"stufe 1"si$rf$tab (33) "1="k 

379 printtab (8) rn$a5$a5$a3sr f$z7$79 
$Szö$rn$aSsalsadsrts 

499 printtab(6)rn$aSsa5saäsr f$z5$z3 
$zb$rn$a5sa5sasrtfs 
ig m=g 

424 mem+1 

438 ifm<328dg90t0428 

449 ası 

459 b=1 

ce=si 

v1=32980:v2=32984 

v3=329838 

d=33748 
poked-1,112:poked+1,118:poked,i 


forn=1t0255:90sub3@8: next 


522 gosub288: ifs@=17thend=d-1:poked 
+2,32: poked-1,112:poked+1,119:poked 
En Sc 

53@ ifs@=29then 
d=d+1:poked-2,32:poked-1,112:poked+ 
1,11@:poked, 113 

548 ifd>337&5thend=d-1:poked+2,32:p 
oked-1,112:poked+1,11@:poked, 113 
S58 ifd(£33734thend=d+1l:!poked-2,32:p 
oked-1,112:poked+1,11@:poked, 113 
568 v4=d!ifs@< >3290t0428 

578 for1=v4t033988step-48: pokel-48, 
32:pokel-89,66 

S89 ifl=viltathenasa+t1!v1=32988:poke 
1-89, 32: forn=1t029@:gosub3@@:next!go 
tos28 

579 itl=v2+bthenb=b+1:v2=32984:poke 
1-88, 32: forn=1t629: poke59464 ,n!next 
:goto&s2#8 2 

698 ifl=v3+tcthenc=sc+t1:V3=32983:poke 
1-88, 32: forn=1t028:90sub3@@:next!go 
tos28 - 

618 next:pokel-49,32 

628 onpgot0639,679,719 

639 itfardgotossß 

649 pokeatvi1-49, 32: pokea+tvi1,81:vil=v 
1+49: ifv1>33888thenvi1=32988 

658 ifabs (vi+ra-d)<2thenpoked-1,88:p 
oked,88: poked+1,88:90t0768 

669 p=2:goto520- 

678 ifb>6goto?9ß "- 

688 pokeb+tv2-48,32:pokeb+v2,81:v2=v 
2+48: ifv2>33888thenv2=32984 

8978 itfabs (v2+b-d)<2thenpoked-1,88:p 
oked,88: poked+1,88:90t0768 

789 p=3:90t0528 

718 ifc>ögoto?4d 

728 pokec+tv3-498,32:pokec+v3,81:v3=V 
3+40:1fv3>33895thenv3=32988 

738 itabs (v3+c-d)<2thenpoked-1,88:p 
oked,88: poked+1,88:90t0769 

748 ifa>ösandb>sandc>&goto8Rg 

7528 p=1:90t0528 

Fed H=d 

7?8 n=n#+1l:gosub3@@: ifn< 255900778 
789 y=y-1:ify>890t0374 

778 gotol?48 

sga n=g 

818 n=n+l:gosub38@: ifn<255g0to0818 
828 printcl$:f=g8 

839 printy-1527$z28$z265$tab (18) rn$si$ 
"stufe 2"si$rfs$stab(33)"1="k 

849 printtab (8) rn$3a5sa5$sa3sr 6276729 
$Z65$rn$3aS5$a5$a3sr fs 

s5g printtab (H)rn$a5saSsassr 25823 
$zb$rn$a5saäsaäsr ts 

86 printtab(ä)yzsyasyisyisyss$ 

878 printtab (9) yzsytSySsy5s 


i 


Fhoemi x 


ss@ printtab(12)yz$y5$ 

878 printtab (15) yasyfs$ 

7298" printtab(18) yF$y5$y5$y5$yS35$ 

9718 printtab(21) y5$y5$y5$ 

za d=33758:t=8 

738 poked-1,112:poked+1,11@:poked,i 

13 

948 n=9 

958 n=en+t1:ifn<25Q0g0ot095g 

768 fForn=1t0255:gosub3@fd:next 

978 gosub28@: ifs@=17thend=d-1:poked 

+2,32:poked-1,112:poked+1,11@:poked 

‚113 

938 ifs@=29then 

d=d+1:poked-2,32:poked-1,112:poked+ 

1,11@:poked,113 

978 i+4>33766thend=d-1:poked+2,32:p 

oked-1,112:poked+1,1198:poked,113 

1999 ifd{33734thend=d+l!poked-2,32: 

poked-1,112:poked+1,11@:poked, 113 

1g1a v4=d:itfsedi>32g0oto1l9?7g 

1829 forhi= =v4t033@@8step- 48: pokehl- 

48,32: pokeh1l-39,46 

1938 ifpeek(h1-128)=182thenpokehl-i1 

28,32: pokehi1-89, 32:#=#f+1:90sub1239: 

goto19?® 

124g ifFt198g0to1968 

1859 ifpeek(hi1-128)=Fiorpeek (h1-128 

J=189Porpeek (h1-129)=125g0t01138 

1859 next: pokehi-4@8,32 

1878 g=gt+i ; 

ri ift=ithenpokej (g-1) ,32:pokejtgqg 
‚sl:jtgti)=j (tg) +r4d-vid:gotolilßß 

ee v1@=(337598-d)/i14:g=1:j(g)=3319 

S:pokejtqg),Si:jtgti)=j(g) +49-vig:it= 

1 


1108 itabstjtg)-d)x 
1118 
z 
1128 gouto?r?& 

11390 foro=i1to2 

1148 forn=255tolstep-1:gosub3dgt:nex 
t 

1159 forn=1t0255step?:gosub32g:next 
115€ next:k=k+1lig0otc3?£g 

1178 foro=1to2 

118@ forn=255tolstep-1:!gosub3@g:nex 
t 

1178 forn=1t0255step2:gnsub29@: next 
1289 nextiy=y-1:ify>@gotol228 

1210 goto1r48 


=1.5g0t0o11?@ 
ifjtqg)>337ö58thent=@:pokej(g),3 


1228 Far B SSTZAENSBIBRN pokes, 32 ngk 
t:poke32399 , y+47?:i90t0928 _ 
1239 forn=1t029: gosub3fginextiretur 


n 
1242 printchr&t14?) 
1252 print 
1288 print 


1278 pil$=rS5$+t1lv$+tr3$:p2$=r5$+r3$ 
1288 printsi$pil$p2$s1$p2$pi$pil$pil$p 
25p2$32$p2$ 

1298 p3%=r5$+1lz$+r3$: p4$=er5$+lzs+tzl 
$+r2$: p5$=r1$+r2$: ps$=r1l$+1lz$+r2$ 
1388 p?$=r1$+z1$+r2$:p8$=eri1$+zis+lz 
$+r3$:p?$=r1$+z1l$+tr3$: paserSstzl$tr 
2& 

1318 printsi&#ml$p3$smd$si$md$p3&mz&p 
4$m1$p3$m1$pStmz$a2smzE 

132Ed printsismz$a2$mv&si$mv$a2smvsa 
4snz$aztnz$pzZ$mi$ri$lzsr2gmis$ 

1338 printsi$ml$pö$mz$p?$md$a2s&mds$p 
8tmz$aztmvspr&$&pas 

1349 pb$S=rI5$tz1l$+r3$ 

335g printsi$mi$p4snispb&md$a2smdsp 
4:mz$32$5mv&pa&p?$ 

13589 printsi$mz$a4ds&mz$si$mvs$a2smvs$a 
4$nz$a2$ml$mv&p3smis$ 

1378 printsi$mz$adsmz$ss i1$md$spssmz&p 
Stmz$a2&nz$nv$a2tmz$ 

1359 pc$=rl$+tlvstrr2$ 

1398 printsi$pS$34$pS5$s1$pS$pc$pc$p 
S$32$5pS5$p5$pS5$a2$p5$ 

1438 print:printiprint 

1418 print"auf c 64 programmiert vo 


n: ph. bertschg" 
132@ print" <c> 1983/84 by ph. bert 
schg" 


1439 print:print”’bitte nicht weiter 
kopieren !!ır ern 

194@ forn=8t0255step.5:90sub398:rnex 
% 

1458 printchr$(147) 

1458 printrn$si$"stufe 1:"r#$ 

1478 print"du befindest dich im ste 
rnbild des loewen.eine feindliche s 
tation,”5 

1489 ea on Die To ne 
wirft dich mit minen(O).diese minen 


1478 print"musst du nach moeglichke 
it abschiessen.” 

1598 print 

ı15Si@ printtab($) "(taste druecken!)" 
1529 getc$: ifc$=""gotol529 

1532 printcl$ 

1548 gotol819 

1558 print 

1552 Printtab 11) rn$"steuerung: "r+$ 
1578 print 

1588 print 

1579 gE=2?7$+z293$ + 2685 

1528 print"das ist dein raumschiff: 
„ 38 

181@ print 

1528 gi$=rn$+s1$+po$+po$s+sistrrfs 
1834 


19 


print"steuerunginach links:i"si 39 


Phoenix 


$g1$ 
1649 
1659 
1658 
1678 
1839 
1698 
1799 
1718 
1724 
1739 


92$=rn$+"crsr"+rt$ 

printtab (22)92$ 

33$=rn$+ta4$+trf$ 

printtab (22)93$ 

print 

g$=rn$+si$stpl&+tzi$+tsis+trts 
printtab(i9)"nach rechts:"3$ 
printtab (22)92$ 

printtab (22)93$ 

print 

1748 print 

1759 printtab (3) "schuss: "rn$a3$"lee 
rtaste"a3$rf$ 

17588 print 

1778 print 

1758 printtab(1l16)" (taste druscken!) 
1798 
1898 
1518 
1328 

tufe 

3 

1839 printrn$"phoenix"rf$" einen sc 

hutzschirm,um sich vor deiner bomba 

dierung zu "5 

1848 print"beschuetzen.diesen schut 
zschirm musst du komplett abraeumen 
‚um "35 

1359 print"an ihn heranzukommen." 
1868 printrn$"achtung!!!der phoenix 
kann jetzt gezielt auf dich schies 

sen!!l"; 

1879 printrn$"nach moeglichkeit sol 
Itest du nicht allzulange stehenble 
iben!ti® 


getc$: ifc$=""gotol?F78 
printcl$:return 
printren$&si$"stufe 2:"rf#$ 
print"wenn du alle minen aus s 
i abgeschossen hast,bildet der 


1889 print 

1878 printtabtil)drn$"viel glueck!!! 
"rf$ 

1988 print 

1918 printtab(19) "(taste druecken!) 
1928 getc$: ifc$=""goto1928 

1738 printcl$:g0oto1558 

17484 rem ende i 
1959 printcl$j"sie haben keine raum 


schiffe mehr 
19588 print:iprint 

1978 print"erreichtes level : 
1788 print:print 

1998 print"ich.hoffe es hat ihnen s 
pass gemacht." 

29888 printiprintiprint:printiprint: 
print:print 

2818 print"bis bald ..." 

2829 end 

28393 sm=54272:hf=sm+l!vo=sm+24:53z=s3 


20 


"sk 


nm+4: fori=smtosm+24:pokei,@tinext 


2848 dd=33: zd=32: 


z=15 


2259 pokesm+S,8:pokesm+5,8:return 


2989 data 
169,9,141,32,298,1 
‚191,1,4 

2878 data 


41,33,298,141,9,4 


141,2,4,169,149,141,@,221,169,5,141 


‚24 
29888 data 


298,169,128,1941,136,2,133,56,96,96 
Za978 fori=59998t059035:reada:pokei, 


aınext 

2188 printchrs$(5): 
zı1ie 
z128 
2138 
2148 
2158 
2168 
2178 
2159 
Z1?E8 
2292 


gota33g 
rem 
rem 
rem 
rem 
rem | 
rem 
rem 
rem 


389711 
286255 


phoenix = 
bytes 


gosub2938 


sys5gggg:printchrs$(147) 


memory 
program 
variables 
arrays 
strings 
free 


1 a | Eu | Bu Eu Bu 


num nn 
‚I | ae aaa a Na | 
| Te | Eu u u | 


PHOENIX 


Sie befinden sich auf ei- 
nem fernen Planeten mit 
Ihrem Raumschiff. Eine 
feindliche Raumstation, 
Phoenix, greift Sie an. 
Nun müssen Sie deren 
Minen, die Phoenix auf ° 
Sie feuert, abschießen, be- 
vor diese den Boden oder 
einen Felsen berühren. 
Doch das ist nicht einfach: 
— Während Sie auf die 
Minen feuern, können 
Sie diese nicht sehen. 
Erst wenn das Feuer 
unterbrochen wird, wer- 
den sie wieder sichtbar. 
— Sie dürfen sich nur in 
einem schmalen Raum 
vor den Angreifern ver- 
teidigen, denn die Fel- 
sen, von denen Sie um- 
geben sind, sind schon 


von Phoenix vermint 
worden! Jede Berührung 
dieser Felsen bedeutet 
die Explosion Ihres 
Schiffes. 


Wenn Sie die erste An- 
griffswelle von Phoenix 
erfolgreich überstanden 
haben, kommen Sie ins 
nächste Level. Phoenix hat 
nun einen Schutzschirm 
um sich aufgebaut, wel- 
cher vollkommen zerstört 
werden muß. Doch dies 
wird nicht so leicht sein, 
denn Phoenix hat aus dem 
vorangegangenen Kampf 
gelernt: Er setzt nun lenk- 
bare Minen ein, die Ihrem 
Schiff folgen. Weichen 

Sie aus oder schießen Sie 
die Minen ab. 


MOONWAR 


In Ihren beiden Raum- 
gleitern stehen sie sich ge- 
genüber. Zwei todesmuti- 
ge Gegner, die nach den 
neuen Gesetzen des 27. 
Jahrhunderts Ihre Meir- 
nungsverschiedenheiten 
bis zum Tod austragen. 
Steigen Sie in die Kapsel 
des einen Raumschiffes 
und fordern Sie Ihren 


Chef auf, sich Ihnen zu 
stellen. 

Bedienen Sie die Bordka- 
none Ihres stationären 
Raumers,um die gegneri- 
sche Kapsel zu zerstören. 
Und denken Sie.daran — 
es geht um Leben und ° 
Tod (oder vielmehr: um 
Gehaltserhöhung oder 
Überstunden). 


Pmoomwanr 


18 rem Moonwar=======:=:==5=2=:==:===8632 
28 rem (p) commodore welt = 
=@ rem "TSzZESzEnZzESZESSZzzZgzeazszemnmunm 
48 rem (c) by == 
5% rem Ph. Bertschg en 
dd rem um 
78 rem version 4,9 6ßz/ascii za 
88 rem 8932 + 1539/8259 ze 
59 rem SE5scseNeszgsCEZE22ZE2SEzsczescem 


IB ads®=chrs(147) +chr$st17?) +chrs81t17? 
\)+tchr#(17?) +chrsti1?7) +chrs(1L?)+chr#tl 
?)+chr#s(17) 

118 elr®=schrst147)terdsechr# (17) ter 
h$=chrsti19):gro$=schr# (142) 

128 adss=adss+chr#(17) +chr#(17?) +chr 
“(1M):depp&=schrs(18) +"beiden"+chrs( 
146) 

138 vhss=chrs8(19)+chrs(19) +chr$(147? 
);las=" "+erd$s+chrs(157): pos=ecrhs+tc 
rhs+c1irs 

1948 sdtfsechrs(14?) +tchrs(17?) +chrs(17? 
)stres=erhs+terhs+tcelrs+gros 

158 saußsechrs(147?)+chr#st1?) +chrs(17 
)+chrs(17)+chr#(1?)+chrs(1?)+chrs(i 
?) 

168 Fs=echrs(17?):tuisschr#(19) +chr$( 
IPB Br Br ur FH FH FH Chr # 
(18) 

178 vettsechr®(i8)+"3"+chrs(146):ab 
ed$=chrst18)+"1"+chrs(146): h$S=chr$( 
i8):90t09778 

188% torwa=sito3@inextireturn 

198 torfleltod: pokeso, F1%59: sys2867 
Zinext:i=1-81:pokeso,® 

288 fora=itoS:p(a)=peekti- ar) inext 
ı+orasitos:!forbeilto: pokei-b+t4,zt(b) 
snext 

218 g90osub188: forb=1toS:!pokei-b+4,32 
ınextigosubilß@ß:inext 

228 torb=1to35:pokei-b+4,p(b):nextii 
=i+Bi 

238 ifp=16@thenpakei , 247:90t026% 
248 ifp=24?thenpokei, 98: 90t028% 

258 ifp=9&thenpokei,i11:90t0289 

26@ ifp=illithenpokei ,32:g0t028% 

278 soto?7BB 

288 fori@=i-898t032768s8tep-Bd: ifpeek 
(i@)=14ßthenpokeiß, 32:next:goto31ß 
298 =peektiß):iftf=32orf=247orf=980 
rfsliithenpokei®, 32: goto319 

3a9 ift=il2ort=l1ßgotoB8g 

318 return 

328 c=316/98:pi=3.1415926536: fori=! 
to6s4:; reads!:next!ifori=eitoSsreadz (i): 
next 

339 si=peek (30RR@) +25&tpeek (3991) - 
239: 82=peek (30082) +256*peek (30993) - 
249: poke225,4 


3489 sound=59464 


SS FEW men spieler I----- 
368 : 
378 tori=28ßtolßdstep-5: :pokeno, iine 


xt:pokeso,® 

389 poke59448, 14: print"SDaten Spiel 
er 1":!g9osub928: input"Schusswinkel,$ 
chusskraft"iw,k 

398 we (w+226) /ciwentpi/1Bß:wesintw) 
+(-B9) 1 weutwsis=esl:gosubA1d: gotnd5ß 
298 5 

418 rem--schuss (spieler I+2)----- 
428 ı 

438 fori=2ßtol2ß@stepS: pokeso, i:next 
ıpokeso,® 

4483 print"S"!pokeS59448, 12: fori=stos 
-k*8@stepw: ifi<32768thennext:goto4? 
[2] 

459 p=peek(i):pokei,81:90sub188: ifp 
=32thenpokei ,p:next:goto4?# 

468 gosub1l9Bß:return 

a78 ifinttw+r9,5)=-Bßgotoslß 

488 ifwi-88g90t055% 

498 11<32768theni=i+4:gotosiß 

588 pokei,p:i=i-78:i1f1%327648theni=i 
+82: 9010539 

519 p=peek(i):pokei,8l:gosubil8d:ifp 
=32thenpokei,p:i=i1+82:g90t0530 

528 sosubi9@:return 

539 p=peek(i):pokei,8i:g0sub1l8@: ifp 
=32thenpokei ,p:goto&1® 

549 gosubil9ßireturn 

55% jfi<32768theni=i-4:goto61ß 

2648 pokei,p:ii=i-82:1f1<32768theniei 
+78: 9003978 

578 p=peek(i):pokei,Bl:gosubißßtiitfp 
=32thenpokei ,p: i=1+78:90t0398 

588 gosubi9ßireturn 

5995 p=peekti):pokei,81:90sub188:ifp 
=32thenpokei,p:9gotod1® 

622% gosub1l9ßi return 

&1iß iß=i:fori=ißto3476?75tepabs (läßt 
w)sifi<£327&8thennextireturn 

628 p=peek (i):pokei,81:908ub18@: ifp 
=32thenpokei ,pinextireturn 

638 gosub1l9ß: return 

6948 : 

658 rem----- spieler 2----------- 
4648 tori=288tolßßstep-5:pokeso,i:ne 
xt:pokeso,® 

678% poke39468, 14: printelrsjtab (59) " 
Daten Spieler 2":g90subFd8 

688 poke226,5%: inputelrsjerds) "Schu 
sewinkel,Schusskraft"jw,k:poke226,% 
67d weiwm+226) /ciwewtpi/18Q:weläsßr+si 
n{wI#t-B8) Iwe-wiweu+twei ses2: gosubAl 
d:g0t0339 

788 rem---getroffen----- 


« 


718 ifs=sithenc=s?2:w=el:!goto?59 

728% ifs=es2thenc=sl!w=2:90t0758 

738 pokeS9468, 14: printsdtsj "Compute 
r ERROR!!!" 

748 goto?4ß 

759 0=58:g0sub168%: printsausj "Spiel 
er"w"hat dieses Spiel gewonnen!" 
?7&@ printf®sj "Herzlichen Glueckwunse 
h!!! Sie erhalten als Praemie eine 
Coca-Cola" 

??8 printfs "von ihrem Gegner." 

788 celr: poke59447, id: dima(il4) 

798 datal,6,14,1,1,18,14,1,1,6,6,25 
‚194,1,6,25,8,25,14,1,8,25,13,3? 

890 datai@,12,6,18,14,1,6,6,12,18,6 
‚6,3,25,11,598,8,18,5,12,6,58 

81® datai4,100,9,09,159,1498,133,125, 
119,111,1085,99,94,88,83,78,74,% 

828 fora=sitoS@:readwinext 

838 fora=sitoldireada(a)inextirestor 
e: forpo=15t039: pokeS9444, po 

849 fora=sito2Stireadz,x 

858 pokeS9464,alz):forb=ßtolßktxinex 
tb,airestoreinextpo 

858 data?9,78,93,77,7% 

878 end 

888 iß=int tif) :ifiß-158=sloriß-I6l= 
sithenwe2icesi!goto?5ß 
E99 c=a2:wal!goto?5ß 
984 rem--windablenkung 
918 vimsintirnd(1)%3)-Liitvi=dthenpr 
interhstab (35) "Windstill"iws=eßiretu 
rn 

928 wteint(rndti)X31) +1: wtauntkvi 
938 Iifwt<dgoto95R 

9AR printerhstab (25) "Wind: 
t"km/h) "iwsaut*#3/12ß: return 
958 printerhstab (25) "Wind: (=== 
bs (wt) "km/h) "iwsewt#3/19ß: return 
9ER end 


mem) (Hu 


('a 


988 printtresj :poke59448, 14: poke226 
‚17: zyx®echr#( 176) +chrs( 174) +terds+c 
hr®tiS?) +chr®(157) 

998 printerh". .HRBIRIEH. EHEN. HEHEEN. Hi. . 
I. «BR. Bi. IH. HERREN. BEREIEH 
1898 print", AR. MW. Hi. BER... 
Du. Du Pe Pure Pu Pag 

1818 print"... 
IM. IH. IM. NEIBGN. HEREHEN 

1829 print’... MM. :. HM. Hi. . 
Da Pe 7 Pen Pu 6 

1838 print". Hl. Mi. HR. HRREN. HESHBH. Bi. « Hi. . 
Mi: HM. MH. «MH. M. | 

1948 printerdsjerdej "Copyrights by 
D. Schorpp/ Ph. Bertschg <C) 22.6.1 
983" 

1859 poke231,1:foropd=1t045:printch 


22 


r$(?)jinextopdizyx$=zyx®+chrs(157) 
186% poke59467?, 16: poke594664, 15: poke 

39464,8:sound=59464:flaps=",.,."+erd 

S+chr8(157) 

1878 fori=1t020:fori@=196t08step-28 
:pokeso, i@inexti@,istflaps=tlaps+chr 

»(157) 

1808 forwa=itolS@@:nextitlape=tlaps 
+tchr#(157) tchrst 157) +", ..." 

1898 printerhsjerhsjiforsex=1to9:pr 
interd®@j inextsex!printchrs{18) "Hal 
lo! 

1188 printerds) "Bei diesem Spiel ge 
ht es darum,dass Sie ihren Gegner d 

urch geschickte 

1112 print"Angabe von Schusswinkel 

und -kraft treffen.Wenn Sie dies sc 
haften," 

1128 print"so erhalten Sie von ihm 
als Belohnung eine Coca-Cola," 

1138 printerdsj "Zuerst allerdings m 
vessen beide Spieler auf der Mondla 
ndschaft landen. 

1148 printerds) "Die Steuerung der L 
andetriebwerke: <"abced$"> steuert Si 
e nach links-- 

DIS NBEINEN nn a ES Een 
nano. Sf" wett") steuert Sie nac 
h rechts 

1168 printerd$"Wenn Sie mit "depps" 
Beinen ihres Fahrzeugs auf Boden -) 

elandet sind, ri 

117% print"dann ist ihnen ihre Land 
ung geglueckt, ansonsten nicht!" 
1189 pokeS2, 255: poke53, lll:celirifori 
"1t0o6&9:readp:!next 

1198 fori=28672t028724:readp:pokei, 
P'nextisound=59464 

120% data24,216,169,135,141,19,112, 
141,35,112,160,8,162,2087,144,1,2@2, 
189 

1219 dataß, 128,291,128,48,6,56, 233, 
128, 24,144,3,24,195,128,157,8,128 
122%. datal38,208,233, 136, 248, 18, 206 
‚19,112,286,35,112,162, 255, 288,221, 

96 

123% al®=crhsiforww=lto?ials=salster 

dsinext!:forww=1t079: a28=a28+chrs (29 
ınext 5 ; 
1249 fordd=eltoläisst=esss+tlasinext:p 

rinterd$"Taste druecken!"!poke158,% 
swaitisß,i 

1258 printpoßta=i15-int(rnd(L)XS) ı#o 

ri=@tolS:tprinttal®slefts(a2s,i)lert# 
(888, 3%3)h8 

1269 printlefts(ss®, (i6-a)X3)crhsin 

ext 

1278 a=int(rnd(1)%9):s=i& 


Tl niit ln en 


TMoomnmwarnr 


1288 printalßlerts(a2s,s)lefts(ss#, 
at3)hslefts(isse, (l6-a)H3)ı s=stliifs 
>&sd4gotol3il® 

1298 veint(rndt1i)#5) -Zia=sarviifaido 
ra>lSthena=sa-2Z%v 

139% goatol288 

1318 a=13-inttirndt1)#I) : Fori=däto?9 
printalslefts(la2s,i)letts(ss#,a%3) 
hs} 

1328 printleftstisss, (l&-a)*3)erhsin 
ext 

1339 shezyx$: loß=flaps: fori=Bto2:a 
IiS=al®s+crd®i next 

1348 rem---landung spieler Ii-- 

1358 poke$9488, 14: printerhsh®"Landu 
ng Spieler I in 5 sec, !"it=ti 

1369 iftict+3908g0oto1348 

1378 printerh®".vsoosuonen mann una nn 


1388 h=15: ve1:85=329493: printlefts(al 
8,v)lerts(a2s,h)ls®:a=vibeh 

1398 p=peek (151): 1fp=235g90t01428 
1488 ifp=17?thenifh>ithenh=sh-1is=s- 
l:gotola28 

1418 ifp=179thenitfh<?Sthenhehtil:s=s 
+1:90t01428 

1,428 pokeso,rndt1)%#296 

14324 forwa=sitolß@:nextiprintlefts(a 
1%,a)left$sta28,b) lo$:ı vev+liıses+t8ß:a 
zevıb=h . 

19449 printlefts(als,v)letts(a2s®,h)s 
8: fori=ss-itos+2i ifpeek (i)=32thennex 
t:90t01379 

1458 itfpeek (s-1)=32orpeek (st2)=3290 
to1619 

1448 pokeso,%: poke398881,8/256: poke3 
BAG, s-intt3/236)%236 
1478 rem---landung spieler 2------- 
1489 poke359468, 14: printerhsh®"Landu 
ng Spieler 2 in 5 sec. !";t=ti 

1499 ifti<t+3Bß98gotol499 

1588 printerh®".2ooeeeuoeennnn nenn 


1518 h=69: v-=1:15=32988: printleftstal 
%,v)letftsta2$,h)s$ia=svi:bsh 

1528 p=peek (151): ifp=25590t01559 
1538 ifp=17?thenifh>rithenhsh-I:s=5- 
1:90t015958 

1548 ifp=179thenifh(?5thenheh+l:!s=s 
+1:g90t0o13558@ 5 

1558 pokeso,rnd (1)%256 

15688 forwa=sitolßßinext:printlefts(a 
18,a)left$(ta28,b) lo®: vev+tiisestöß:ea 
sv:b=h 

1578 printleftstais,v)lerts(a2s,h)s 
S:itfori=ss-Itos+t2Z:ifpeekti)=32thennex 
t:goto1529 

1589 itfpeekts-1)=32orpeek (st2)=3290 


to1678 

1598 pokeso, 8: poke39993, 5/2956: poke3 
2982,s-int(s/236) #236 

1688 pokeiS8,@:run32d 

1618 wei 

1628 fori=1t029: sys2B64?7Zınext:ic=s-8 
29: 0=358: g9gosub1688 

1636 poke59468, 14: printads$} "Spiele 
ty! 

1648 print" Sie sind mit ihrem Raum 
schiff an einer unzulaessigen Stell 
e gelandet." 

16358 print"Fuer Sie und ihre Crew 9 
ibt es kein Ueberleben!"j 

1668 fori=1t0259stepiß:print"Kein U 
eberleben! "j:pokeso, linext:gotold 
68 

1678 w=2:g0t0o1628 

1688 printvhs® :pokeS59468, 14: pokec, 
o:pokec+ti,o: fora=itod 

1699 foralisc+tatBltoctat?Pstep-L:pok 
eal,o:next 

1729 fForalsc+at?79toc-at8lstep-88: po 
keal,osnext 

i718 fForal=sc-a#t8ltoc-a%?9: pokeal,o: 
next 

1728 foral=c-a%79toc+ratBistep89: pok 
eal,o:next 


1738 next:iifo<>32theno=32:gotol68d 
1748 return 

17524 rem moonwar Sser=sezzmnesnense=8932 
1768 rem 931743 bytes memory == 
1778 rem 887192 bytes program .= 
1788 rem PBP0899 bytes variables == 
1798 rem BA9992 bytes arrays == 
1888 rem Bd09RB bytes strings = 
1Si8 rem 9246941 bytes free ze 
18223 zzazzezzzmaumzszemzmzemmzezmzen 


rem 


LISTINGS 


Das Programm ermög- 
licht dem Anwender die 
Erstellung einer Bundes- 
liga-Kartei. Im ersten 
Menüpunkt muß zuerst 
entschieden werden, ob 
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der VC 20 bereits erstell- 
te Daten von Band ein- 
lesen oder ob eine 

neue Datei eröffnet 
werden soll. Nach dieser 
Auswahl können nun 


die üblichen Bundes- 
liga-Daten wie Tabellen- 
stand, Spielergebnisse 
usw. ergänzt oder 

neu eingegeben werden. 
So ist es möglich, sämt- 


liche Spieltage auch im 
Nachhinein für den Fuß- | 
ball-Fan aufzulisten und 
auszuwerten. Die Unter- 
menüpunkte erklären sich 
von selbst. 


a —— 


Bundesli9a 


i8 rem i. bundesligatabelle =====28 
28 rem (p) commodore welt 2 
39 rem sezzauszszezzs=mseseeeszmzzeaume=s 
48 rem (c) by hartmut = 
sa rem schulteis = 
68 rem = 
78 rem = 
88 rem vc-28 + vc-1539 + I6kb = 
92 rem SEz2nzzszzsmmmsemzuezgzzsseseee 


198 
118 


uhs=echr8(5) : dus=chr#(19) 
pos=chrs(16):cdS=chr# (1?) 
ch$Ssechrs(19;, :ıres=chrs(28) 
eis=chr®(29):gr®8=chr#(39) 
bls=echr#s(31): Fißechrs(133) 
+?78=chr®#(136):; F28=echrs (137) 
86=chrs(148):bkB=chr#(144) 
ceu$=chrst(145):cl$S=chr8(147) 
pußs=chr#(156) :cr$=chr#1157) 
yes=echr#(138) :cyMechr#st159) 
fori=1t03:c38=c3$+cds! next 
fori=1told: c98=c9s+cd$inext 
fori=1t03:c2$=-28$8+cr$! next 
fori=itoll!ic4s=ecds+ciW:inext 
forieltosd:c93$6=c36+c1iBi next 
fori=1tol9: c?8=ec?s+ciSinext 
fori=1t022: l1is=lis+r"-"inext:!1lis® 
eli@+tcus 

278 poke36879,93 

289 data8,188,193,192,193,188,128,1 
3 

298 fori=1toß: reada: ue$=ues+chr$(a) 
ınext 

398 dataß, 233,146,196, 196, 253,128,1i 
5 

318 fori=1toß:reada: ae$=sae$+tchrsta) 
ınext 

328 data8,189,194,194,194,189, 128,1 
3 

338 fori=ito8:ireada:oves=0oes+chr# (a) 
next 

348 printclsres"..:.::.08888888" 


358 print". .202,,@" 

3689 printbk®" 8898..."re®"’@....."yeB 

"ap" 

37% printbks" @ 0886 "re®"8....."ye® 

"9 WU 

388 printbk®" 8...8@"re®"@....,"yeß 

"9,.8" 

392 printbk" 8.:.::008..."yeb"®... 

B" 

428 printbke" 8....."res"o "bikS"’@88 
"vos"®, LEE SE; @e" 

418 printbks" 8....."res"®..."bk$"@ 


e"yes"®. .. @" 
429 printbks" 
"08" yos"@" 

438 printbks" 


®. a0 08 "re$"®. oa "5k$ 


®. .asee "re$"®, KiEe 8 "vos 


"oa @"bks"o@" 

448 print" 8....."reß"@00008"ye$"908 
"bus" aan" 

458 print" @...::reW" RB..." yoR" a8 
"DEE" aaR" 

468% print" Bere"... "yoh'e 
e"bus"B@" 

478 print" B...::.'"re8"@....."bk8"88 
e"'yos"®" 

488 arintbks" 
u'yen"a...®" 


®. aaa "re3"@, .0 'bks"® 


498 printbk#" 8....."re#"@ "bk#"888 
"yoß"B....0" 

539 printbks" 8..:.:.:000..."ye8"®... 

@" 

518 printbks" 8...88"re8"@....."ye® 
"9.8" 

529 printbks" @ 808 "re#"@....."yeo® 
"9 oe" ” 

538 printbk#" 088..."reo8"8....."yeoß 
"s8"ren 


549 fori=ito2:print"....:...,@":next 

559 gosub3989:g0osub3969: poke369869,2 

1-I-) 

54% poke34879, 221: printcisre®" 
[} 


578 printcuswhs"i. (85/ 

86)" 

589 printcußres" 

—mb]18 

598 fori=dtol?: a 

693 gosub3978 

#18 getas: ifas=""thendiß 

622 gosub3968 

638 poke34879,157 

648 printcelscdscds"i. spieltag ? ( 
In)" 

450 dimkk (17), 11117),99t17),00(17), 

pk (17?) ,np(17),st(17),95(17),vs(17) 

669 gosub39?78 : 

67% getasi ifast>"j"andaß<>"n"thend? 

8 

689 ifas="j"then83® 

#92 printe3scderes"datenband einleg 

en !!t"uhBcdB". sus, taste"bksc9E 

798 getas: ifas=""then?99 

718 openi,1,9%,"fussballtabelle" 

728 input#i,da® 

738 tori=dtoi? . 

748 input#i1,g99ti)sinput#i,kkli)sinp 

ut#1,11ti)sinput#1,0ooli)sinput#i1,9s 
{i)sinput#i,vsti) 

758 next 

768 closei 

778 printbisc3scd#"tabelle ?ııracc 
in)” 

sen getaß: ifas‘>"j"andas‘>"n"then?8 

[) 


bundesliga 
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Bundesliga 


79% 
899 


ifaßge"n"then83@ 
poke36879, 156: printels 
zu=1:90s5ub2388 

printelsbis 

poke34879, 285 

printels"datum "f:inputdas 

859 printcdsres" u. „apielnäarungen H 
"edabks: i=i 

869 openi,®:input#i,ms(i)iclosei 
878 ifmßti)=""thenan=(i-1)/2:printe 
ds: goto938 

888 print,c2#" - "gii=itl 

898 openi,@:input#i1,ms(i):iclosei 
988 print,c2s" "1/2 

918 ifi=18thenan=9:!g90t0939 

928 i=i+iig0oto8dd 


938 printbis"korrektur Pers tj/n)"cu 
M 3 

948 getaß: ifast>"j"andas<>"n"then94 
[2] 


959 
968 
utpo 
978 ifpo>anorpo=@thenprintcl$s:goto9 
68 

989 po=po*2: printcdscds"korrektur ; 
"cdsbks$ 

978 openi,8:input#i1,m$(po-i):closel 
1298 print,c2#" - "jtopeni,9:input# 
1,m${po):closei 

i81% print,cdscd$res"ok ! 

1929 printcdscd$pus"noch eine korre 
ktur ? "CAB* ou. tj/n)"bie 

1939 getaß: ifas<>"j"andas<>"n"theni 
838 

1949 printels: ifas=" j "then96g 

1959 i=0:j=1:dimzz(an%2),splan-i) 
1969 ifj=an*2+1ltheni16ß 

1978 ifmstj)=ab$S(i)thenzz(j)=i:i=g: 
jejti:gotold&az 

1888 ifi=1?7then119® 

1899 i=i+rl:!g0tol9?7% 

1198 printc3#re$"entschuldigen sie, 
"ed#"dass ich mich ein-" 

111@ printcd®"mische, aber die mann 
-"cd$"schaft "bksms(j) 

1129 printcdsres"kenne ich nicht !! 
ıH 


printels: ifas="n"then19sg 
printc3®#"welche position "j:inp 


1138 
1149 
1158 
1188 
1178 
om" 

1189 
1198 
129% 
121% 
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printedscdsbl#"korrektur "cds 
openi1,8:input#i,mstj):iclosel 
printcls:i=9:g0t01978 
poke36879, 285 
printelere®" spielpaarungen v 
printcdsbis" 
printcyslisbke:i=tl 
forj=itoan 
printabstzz(i))g 


"das 


1229 print,c2s" - "giimj+l 
12398 printabs(zz(i))} 
1248 ifj=Pthenprint,c2s" 
:g0ot0o1268 

1258 print,c2s" 
126% next 

127% getas: ifaß=""then127% 

1284 ifas="t"thenzu=si:!g0osub2329: got 
oll6ß 
1298 
1398 
1318 
132% 
1338 
1344 
1358 
136% 


"sjjcuscus 


"gjrieirl 


ifa$="a"'thenzusiia=1:!g90t01689 
ifag="e"then1339 
a=val(a8):ifa=ßora>anthen1279 
gotoild48% 
ifpi=8then1438 
printels: i=9:j=9 
ifsp(i)=ßöthenj=j+1:90t01389 
ifi=san-ithenprint!:goto3948 
1378 i=si+tl!gotol35g 
1388 pil=zzliX2+1):p2=zz(iX2+2) :ifj= 
ithenprintre$s"restergebnisse :"cdsb 
k$ 
1398 printcdsi+tiljcrs". "}topeni,ß: 
input#1,pt(pl)icloseliprint,c2s": 

H 

) 
148% openi,®:input#1,pt(p2) :closel: 
print,c2s = 
1418 nttpil)=pttp2)int(p2)=ptipi) 
1428 goto1348 
1438 printci®sbl®"geben sie die erge 
b- "cd$"nisse ein :"bksij=il 
1448 fori=itoan 
1459 printcdsijers", 
put#i,pt(zztj))iclosei 
1469 print,c2#s"! "sij=j+il 
open!l,S:input#1, igatyittelae 


"ssopeni,ß:in 


print,c2s# 
nt(zz(j-1))=pt(zz(j)) 
nttzz(j))=ept(zztj-1)) 
jej+tlinext 

ifan<?thenprintcds 
printcd$pus"korrektur ?...(j/n 
I"cu$ 

1548 getasiifasc>"j"andas<)>"n"theni 
548 

1558 ifas="n"then2328 

1568 printcl$cd$c3®bls"welche posit 
ion "Jsinputpo 

1578 ifpo>anorpo=ftheni1342 

15883 po=po*2: printcdscds"korrektur 
ı "cd$bks 

1598 printpo/Ziers"..."jlopeni,@:in 
put#1,pt(zzi(po-i)):closel 

1629 print,c2$": "gjtopeni,2:input# 
i,pttzz(po)):closei 

1818 nt(zz(po-i))=pt(zz(po)) 

1628 nt(zz(po))=pt(zz(po-1)) 

1638 print,cdscdsres"ok !" 


> zültrrkklz 
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printedscd$pus"noch eine korre 
7 PCIE" ooannnnntj/n)" 
getas: ifas<>"j"andas<l>"n ı"theni 
ifaß="j"then134® 

90102329 

poke348?9, 237 

tt=a%2-1 

pi=zzttt) 

p2=zz(tt+1) 

po=pil:h=p2 
printcel®cd$sreSmas(pi) 
printc3sc3sc3$scy$1is 
printresma®(p2)ch$cdscdsbks$ 
j=ept(po)ii=i 

ifj<1Qdtheni1P19 

printc9$zas(6) 

printc5$zas(®) 

printc98z38$ (3) 

foru=sito3: printce$szas(ö)inext 
printc98szas$(4) 

j=j-18 
ifpo=pithenprintch®cdscds:goto 


printchsc9s:gotolF19 
ifpt(pl)=-ithenpt (pil)=d:int(p2) 
ed:g0to1?69 

18798 ifpt(pZ2)=-ithenpt (p2)=d:ntipi) 
=d:gotol?6ß 

18898 ifpttpi)=2dthenpt (pi)=19:nt(p2 
)=19:g90t01768 . 

1898 ifpt(p2)=28thenpt (p2)=19:nt (pi 
)=19:!90t0176% 

19989 gotol?6ß 

1918 onj+tigotol929,1939, 1989, 2919,2 
249,2979,2100,2139,2169,219% 

1928 onigosub3829, 3830, 3839, 3830,38 
39,3839,3828 

193% ifi=8thend31®@ 

1948 goto1928 

1958 onigosub3880, 3820, 3859, 3889,38 
89, 398989,3868 

1958 ifi=8then43i1 

1978 gotol93g 

1988 onigosub3828,3834,3878,3889, 38 
99,390, 3918 

1998 i41=8then4319 

2298 goto1l988 

2818 onigosub3829, 383%, 387%, 3829,38 
79, 3839 ,3828 

2828 ifi=8thend319 

22398 goto2B819 

228428 onigosub3999, 3859, 3859,3919,38 
49,3849,3849 

2858 ifi=8thend3i1g 

296% goto2948 

2278 onigosub3919,3909,3928,3878,38 
72,3839, 3829 


285% ifi=8thend3ig 

223978 got02978 

2188 onigosub3829, 3838, 3708, 3928,38 
39, 3839, 3828 

2118 i4i=8then4312 

2128 gotoZ19% 

2138 onigosub3P19,3839,3889,3889, 38 
99,3979, 3892 

214% ifi=8theng31 

2159 goto2139 

218% onigosub3820, 3839, 3839, 3829,38 
39,3839, 3828 

2178 ifi=8thend3i1g 

z18698 goto2169 

2198 onigosub3829, 3839, 3839, 3849,38 
78 ,3832 , 3828 

2298 ifi=8thend43ig 

2219 goto2198 

2228 pokel198,8:waiti198,1:getas 

2238 ifası>tiwandası >f2Bandast >r?sa 
ndas‘ >f8$thensp(a-1)=1:po=ßitt=9:90 
to1l1s9 

2248 printchs: ifa$S=fi$oras=f28then2 
269 

2258 printc36c38c3%cd® 

22898 printcds$ 

2278 fori=1t0?:print" 
sure ."inext 

2268 ifas=fißsthenpo=spil:h=poipt(pi)= 
pt(pi)+lint(p2)=nt (p2) +Liprintchsed 
Scd$: gotol869 

2278 ifaß=sf2®8thenpo=plih=po:pt (pi)= 
pt(pi)-iI:nttp2)ent (p2)-I:printchscd 
Scd$: gotol84ß 

2329 ifas=f?8sthenpo=p2:h=po:pt (p2)= 
pt(p2)+iinttpil)ent(pi)*+il:printchsc? 
Ss: goto1l848 

2318 po=p2:h=po: pt (p2)=pt(p2)-Iintt 
pi)znt(pil)-I:printchscH#:gotol86ß 
2328 printcl8$:poke36879, 1356 

2339 forj=iItoan*2:i=ezz(j) 

2348 ifptti)>nttli)thenpk(i)=2:goto2 
3789 

2358 ifpt (dent (d)thenpk(i)=iinp(i) 
=1:90t0237?8 

23588 npli)=2 

2378 next 

23828 fori=@tol? a 

2398 pkti)=pkti)+ggti) 


24828 npti)enpli)+kkti) 
2418 pttli)=ptti)+1l1lti) 
2428 nt(i)entti)+ooti) 
2438 ppti)=pkti) 

2438 dfti)=ptti)-nt ti) 
2458 next 

245% po=1 

2478 n=8 


248% 
27 


printre$sc3$c3$cdscds"...bitte 39 
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warten !!!® 
2498 printbkscdscds"...ich rechne ! 
n 


2398 
2318 
2528 
253@ next 

2549 ifn=1?7then2589 

2559 forleitoil?:ifl=eithen2579 

2568 ifpkti)=pk(l)thengosub2638 
2578 next 

2588 ifh=ßthenriin)=i: Aue Remete pin) 
=90: 90102739 

2598 forl=gtoh 

26828 riind=b(l):pk(btl))=-i:pin)=po 
ınenti 

2619 next i 

2628 n=n-1:90t02739 

2638 ifnp(i)£npti)thenreturn 

2648 ifnptl)<np(i)then2?728 

2658 ifdfti)>dftl)thenreturn 

2558 itfdftl)>dfti)then2729 

26578 ifpt(i)>pttl)thenreturn 

2688 ifpt(1)>pt(i)then2728 

24798 itfh=dthen2?7i1 

2782 h=h+l:b(h)=lireturn 

2718 b(9)=i:btl)=1:h=slireturn 

2728 i=l:ih=@ireturn 

273@ ifn<1?thenn=n+i!po=po+h+l:!goto 
2592 

2749 printclsbks"tabelle vom: Our 
printedsres" mannschaft punkte di. 
b1# 
2738 
2768 
277% 
: 2789 
2798 
2898 
2818 
2828 
3429 
2838 
2848 
2838 
2848 
2878 
2888 
2898 
2988 
29718 
2928 
293% 
2949 
2959 
n)" 


i=ß:h=d 
forj=1toi? 
ifpktjI >pktiitheni=j 


p=® 

1=8 

fori=ßto1? 

jeriil) 
x=p(li)sprintersj:gosub3428 
printer", "abS(j)ersersi 
x=ap(j)iprint,cisj:gosub3428 
xenptj)isprint,c28c2$cr$) igosub 


printc2sers":" 

g99sub3?2% 

next 

printchstab (88) 

fori=8tol?: Henker er 
ifdf(j)<-9ordf (j) >Pthen29ag 
printeisdtf tj) I :goto2914 
printdf(j)J 

printersj igosub3?28:next 
geta®: ifaß=""then2929 
ifzu=sithen3?$8 

g90sub3458: poke34879, 239 
printelsc3$"ausdruck ?.....1j/ 


getaß: ifas<>"j"andas<>"n"then2 


2978 ifas="j"thensgig 

29788 printc3scdsres"datenband einle 
gen !!!"uhscds"...2...,,taste"bksc3$ 
cds 

29998 getas: ifas=""then2998 
Sa9g goto3649 - 

S818 printcels 

3828 opend,4 

3939 print#4,chrs(14)pos"261. 
sliga" 

3949 print#4,chrs(15) duspos"32datum 
: "das 

print#4, dußpo®"i3ergebnisse:"d 


bunde 


fori=sitoan 

jeirt2-1 

pi={zz(j)) 

p2=(zz(j+1)) 
x=pt(pi)-11(pi) 
print#4,pos"1@"dds(pi)j 
print#4,po$"32-"dds(p2)} 
print#4,pos"S7"x3 
print#4,po@"&ail:"j 

xept (p2)-11(p2) 

print#4, pa@"62"1: g30sub3378} ar? 


next 
print#4,duspo®"13tabelle: "dus 
3192 print#4,poß®"1?mannschaft. .c... 
+ 8Pteoo9enolleneVannenstOr@ssanesaP 
unkte"dus 

32808 fori=dtoil? 

32198 pS=estrs(pli))+",* 

3228 j=erit(i) 

3238 itpti)>9then3258 

3249 print#4,po$8"97" ps) :90t032648 
3258 print#4,po8"96"p#j 

3259 print#4," 
"dds(j)po#"35"J:x=8t(j):gosub3398 
3278 x=98(j):print#4,po®"48"j:gosub 
3398 
3288 
339% 
3298 
3398 
3399 
33978 
3318 
3328 
33978 
3338 
3399 
3348 prints, pom"69:"j 

3358 xenptj):sprint#4,po8"79"j:gosub 
3398: print#4 

33649 next 

3378 close4 

3388 90t0295% 


x=df(j):print#4,pos"44"j :gosub 
x=vs(j)tprint#4, po®"48"j:gosub 
x=pt(j)sprint#4, po8"54"j :gosub 


print#4, po8s"58: "5 
xent(j):iprint#4,pos"59"j:gosub 


x=pp(j)iprint#4, po$"65"5:90sub 


FF] —]—]———=—=_>_._.>...eee en 
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3378 
3428 
3418 
3429 
3439 
3449 
3459 


ifx>?then3419 

print#4," "xjireturn 
print#4,x;j:return 
ifx>9then3448 
printci®xj:return 
printxj:return 

printc]$ 

34689 tori=8tol? 

3478 itfptti)-11ti)>ntti)-ooli)theng 
s(i)=zgs(i)+1:90t03498 

3488 ifnt(i) TORE NEBEN III SITE HERAN 
sti)evsti)ti 

34998 stti)=tppti)+npti))/2 

35998 dfti)=st(i)-tgsli)+rvsti)) 

3518 next 

3528 printchsbk$"spieldaten:" 

3538 printcdsres" mann. ...8t,:.9::44 
v., "cedsb18 

3549 fori=dtol? 

3559 printabsti)} 

3568 x=st (i):printtab(P)J:gosub3429 
3572 x=gs(i):print, e2$c28c26cr#}: 90 
sub3428 

3588 x=df (i)!print e2sc2scrsj:gosub 
3428 

3599 x=vs(i)!print,c2$cr#j:g90sub342 
8: printcus 

3688 gosub3?729 

3619 next 

3628 getas: ifas=""then3629 

3639 return 

364% openi,i,1,"fussballtabelle" 
365% print#i1,das® 

3648 fori=dtol? 

36579 print#1,pptli)sprint#i,nptli):ipr 
int#i1,ptt(i):print#l, ME ALERR INT 
sti):iprint#i,vsti) 

3688 next 

3698 closeil 

3798 poke36879,27 

3718 printcelsbl®s:end 

3728 ifi+l=ithenprintuhsj:return 
3738 ittirl)/inttti+l)/2)=2thenprin 
tbl®j:return 

3748 printwhsj:return 

3759 printcl$:zu=sß 


3768 tori=@tol? 
3778 pk(i)edinpti)=® 
3788 ptli)=ptti)-11ti) 


3798 
389% 
3818 
3829 
3839 
3849 
3859 
3869 
3878 


nt(i)ent(i)-ooti) 
next 

return 

bed: 9003738 
b=1:90t03939 
b=2:90t03939 

b=3: 9003938 
b=4:90t03939 

b=5: 90103938 


3889 
38978 
3998 
39718 
39728 
3939 
39748 


b=6: 90t039398 

b=?:90t03939 

b=8:90t03938 

b=9: 9003939 

b=18 

erinteasigstbı rt imillirerernn 
ifj=8then232% 

3958 print:gotolS39 

396% torx=39t025%:poke36881 ,x! next: 
return 

3974 torx=1598t039step-1:poke35881,x 
ınextireturn 

3989 dimmas(17) ,abS(17) ,m#$(18),pt(i 
?),ntti?),df(17),pp(17),ri(17),b(17 
),p(17),dds(17) 

3999 fori=@tol?:readas,b$:masti)=as 
:dds(i)=aßiab$li)=bE:next 


2298 dds(3)=" Fortuna d"+ues+"sseld 
orf" \ 

aaia ddstE)=" 1. Fc kK"'+oest"in" 
4928 ddsti2)=" fc bayern m"+tueßt"nc 
hen" 

49393 dds(13)=" 1. fc n"+ue$+r"rnberg 
ij 

aaa ddmiid)=" I, fc saarbr"+tues+"c 
ken" 

49858 tori=Bßtol@ß:reada$: zas(i)=saß:ne 
RE 

4968 Fori=9t029847: pokedid4d+i,peek (3 


2768+i)inext 

4974 fori=1to3:readpo: al=4144+8%po: 
forj=®to?:readx:pokeal+tj,xinextinex 
tireturn 
40989 data" 


vfl bochum", "bochum" 


4999 data" sv werder bremen", "werde 
r" 

4198 data" borussia dortmund”, "dort 
mund" 

4118 data" Fortuna d*sseldorf","for 
tuna" 

4129 data" eintracht frankfurt","fr 
ankf." 

4138 data" hamburger sv","hsv" 

4148 data" sv hannover 96","hann. 9 
6" 

41598 data" I. fc kaiserslautern","i1 
. tck* 

4168 data" 1. fc k*ln","tfc k*ın" 
41798 data" bayer 984 leverkusen", "le 
verk." 

4188 data" sv 87 waldhof mannh.","s 
vw 87" 

419% data" borussia m’gladbach","m’ 
gladb.” 

42088 data" fc bayern minchen","baye 
rn" 

4218 data" 1. fe ntrnberg","i. fen" 
4228 data" 1. fc saarbritcken", "il. f 3» 
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Bundesliga 


TE 


es" 

4259 data" fc schalke 94", "schalke" 

4249 data" vb stuttgart", "stuttg." 

4259 data" bayer 95 uerdingen","uer 

ding." 

4269 data" ae","0..0",",..0","g Q," 
Ba" ,"’,...@" 

4278 data" La Pi "a998","ao0 


4288 data@,66,24,36,66,126,66,66,8 
42978 data3d, 66, 24, 38, 66, 66,36,24,8 
4399 data42,36,%, 86, 86, 66, 86, 82, R 
4318 ifh< >pothen4368 


4329 ifzu=ßthen2229 

4339 getaß! ifas=""thend339 

4349 a=a+l: ifa>anthenzu=g:gotol16f 
4358 gotol698 

436% po=h:printc3$scds#:g0oto1768 

4372 rem i. bundesligatabelle ===29 
4382 rem 19947 bytes memory za== 
4399 rem 11457 bytes program === 
4409 rem AOAOS bytes variables ==== 
4418 rem 09899 bytes arrays zsz== 
4428 rem 20909 bytes strings zaa= 
4438 rem 88518 bytes free zmu= 
3449 rem se==22z22s2s2z22=2e22s2m2zm2s=2==2=2 
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PHON 


Dieses Programm macht 
aus Ihrem VC 20 eine 
perfekte Rhythmus-Ma- 
schine. Wählen Sie zu- 
nächst zwischen den 
Punkten Rock 1/2, Pop 
1/2, Tango und Walzer 
aus. Danach muß das ge- 
wünschte Tempo zwi- 
schen „Sehr langsam“ = 

1 und „Sehr schnell“ = 

5 eingegeben werden. Ist 
dies alles geschehen, so 
wird nun der ausgewählte 
Rhythmus gespielt. Einer 
weiteren musikalischen 
Ergänzung Ihrerseits 
steht nun nichts mehr im 
“Wege. 


Ahythmophon 


rhythmophon 


z& rem (p) commodore welt team == 
48 rem (c) by lutz wagner = 
S@g rem = 
68 rem = 

version 2.8 ?22z/ascii = 


ve-28 + 153@/1541 


e4$=chr$(17)tcl$=chr&(147) 
rn&=schr$t18):irt&$=chr&1{146) 
uhs$=chr$(5):c3$=chr$(29) 
hes=chr${19):x1$=chr$(196) 
x2$=chr$81167):x3$=chr$ (113) 
xd$=chr&{115):xI98$=chr$t(11”7) 
xdö$=chr $t170):x?$=chr& (188) 
x8$=chr&{12?7):x9&=chr& 1169) 
yi$s=chr$(153):si1$=chr$(32) 
»8&=chr$(185) 

torg=1itod:! gdt=qds+tc4$:nextq 
forg=itos:gi$=gl$trcd4&inextg 
torg=ito?:g2$=g2$+c4$:nextgq 
forg=1t08: g3$=g3&+c4$:nextg 
torg=ito9: g4s=sgdstrcd$inextg 
forg=itol9: g5s=sgSs+c4sinextg 
forg=sitolil:gö$=göstcds:nextg 
forg=sitol2:g?$&=g?$+c4$inextg 
forg=itold: q8$=08$+c94$:nextg 
torg=eitol9: a9$=-gPS$+tc4$:nextg 
torgq=1ito3:ga$=ga$+re3$:inextg 
torg=1tod: gb$=gb$+tce3$!nextg 
torg=1toS: gc$=gc$te3s$inextg 
forga=itod:gqd$=gdste3tinertg 
forg=1to8:!ge$=ge$s+tc3$inextg 
forgq=itol@: gf$=af$s+tc3einextg 
forg=1t05:q9$=q9$+y1l$inextg 
forg=1ltos:ght=sgah$tylsinextg 

388 torg=itod:qi$=gisrsitinextg 

37H torg=eitold:gj$=egj$tyis:nextag:fo 
rgq=1tol3:!gk$=gk$+yi$inextg 

ABS xat=sxastcel$trgodstrecdstred4strc4Etrrn® 
gig xc$-xc$&trgastqgsrgistrghs - 
a28 xb$=xb$re3$rc3strc4E 

439 rem 

448 printcel$gc$g@&"rhythmaphon" 

459 printhetge$g3$"wagner" 

468 fora=1t0?25 e 

478 printhetgasgssxlsxI3sx2$gtsxIsnd 
Erd 

486 forb=1tol@@!next 

449g printhetgatgssxssrstxrdsgfsxisxd 
Ex2$ 

se@ forb=ltolfd:next 

Sid nexta 

Ss2@ printcl$c3$c4$"rhythmus waehlen 


53@ printhesc3$c4$c94$gj$ 

5348 printhesc3$gl$rn$"rhythmus"rfss 
i$si$si$rn$"nummer "rf$ 

558 printhe$tc3$g2$&"pop..1l...2n0o u 1" 
568 printhesc3$sg3$"pop.i2.22..2..2" 
578 printhetc3$g4s"rock 1.......3" 
588 printhe$cI3$gSs"rock 2.2222." 
578 printhescssgös"tango....222.:5" 
689 printhetc’sa?rs"walzer....::.,6" 
618 printhescs$gss"ende. ..2sann 0" 


628 getas! ifa$=""thengotos2® 
638 ifas="1"thena=si!gotosi1® 
648 ifa$="2"thena=2:goto819 
659 ifa$="3"thena=3:igotosiß 


668 ifa$="4"thena=sd:goto8i1ß 
678 ifa$="5"thena=3:gotosig 
688 ifa$="ös"thena=sd:gotos1ß 
68 ifas="K"thengoto?i1ß 

788 gotod2ß 

718 printelsgesgiscas" auf" 

728 printhesgb$qg?$"wiedersehen" 


738 
748 
758 
EI -1;] 
778 
788 
778 
121777] 
sig 


a=128:b=a+3@: poke36878,5 
forz=1tol® . 
forx=atobstep9.5 

poke3587?74,x 

nextx 

asati1d:b=a+3g 

nextz 

poke365874,8:!end 
printcel$c3$c4$"tempo waehlen" 
828 printhe$c3$c4$c4$gk$ 

8398 printhesc3$gl&rn$&"langsam"rtsgi 
Sois"t" 

848 printhetc3$glscäi$gasxässxnrsgistgi 
Esi$si$"2" 

858 printhetcstg2&gasxöstx?sgisgissi 
Esi$"3" 

858 printhesc3$g3$gasxssxP&gisgissi 
EsiE"4" 

872% printhesc3tg4dsrn®$"schnell”"rf®oi 


Sqis"s" 

888 getbS$: ifb$=""thengotos3g 
878 ifb$="1"thent=599: gotoP5Qd 
sag ifb$="2"thent=39d:gotoP5d 
918 itfb$="3"thent=158:g0t0958 


929 
9739 
948 
958g 
2-14) 


ifb$&="4"thent=5gd: gotoF5g 
ifb$="5"thent=1:9g90t0958 

got 088% 

ifa<>ithengotai94g 
printxa$"pop"rt$sitrns"l"'rf& 


78 printgascds"taste"gi$"tunktion" 
988 printxc$ 

9F78 printxbs" G"gissitsis"stop" 
1898 printxbe’.. liess FE IE 
1818 printxbEt zT im 2" 
1928 erintxbE" „I. Frl in 3% 
18328 gotoi?4d 

1948 ifa<i>2thengotoill3® 
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printxa$"pop"rf$sltrn&"2"rf$ 
printga$c4d$"taste"gi$"funktion 


1958 
1888 
19878 
1988 
1898 


printxcs$ 
printxb$"..d"gi$tsi$s1#$"stop" 
printxbS$"..1..0.:..fill in 1" 
1188 printxb$"..2uss00. 113 In 2 
1118 BEINEXBE? Isa ns ill ih 
1128 9002538 

1138 ifa<?>3thengotol22g 

1148 printxas"rock"rf$sis$rn$s"l"'rfs$ 
1159 printgascd$"taste"gi$s"funktion 
116% printxcs 

1178 printxb$"..d"gi$si$s1$"stop" 
1180: printxb2" . „Es ssestitl in 2% 
119 praintxb$" 2er see ri IN 2° 
1298: PFINEXBE" ski EI IN 3" 
1218 q40t02759 

1229 ifaf>4dthengotoil31g 

1238 printxa®"rock"rfs$sisrns"Z"rfs 
1249 printgas$cd$"taste"gi$"funktion 


1259 
1268 
12798 
1289 printxb$”",.: 2, 2.04% Firl 
1299, BrFintxbS". ass all 
1388 goto2316 

1318 ifa<>Sthengoto1408 
1328 printxas"tango"rfs 
1338 
printgasc4$"taste"gis"funktion” 
1399 printxcs 

1359 printxb&"..@"gqissi$s1l$"stop" 
13689 pFrintxbE”r. 1.0.0.0, F1l4 In 1" 
1378 printxb$"..2,.....Fill in 2" 
1388 printxbe"t,. ses fill In 2° 
13968 90t03138 

1488 printxa$"walzer"rf$ 

1418 printgasc4$"taste"gis"funktion 


printxcs$ 

printxb$" G"gi$ssi$si$"stop" 
PriNERrbEHt len nee ti El cin ER 
In 2 
in 9" 


1428 printxc$ 

1439 printxb$"..8"gi$ssissi$"stop" 
1449 printxbs$"..1......Fill in 1” 
19459 printkbe’. „Zn. till In 2% 
1469 490t03358 

19479 rem"bass" 

1459 poke36877,189:poke35874,128 
1498 fora=15to2step-G.5 

15928 poke35878,a:nexta 

1518 poke36378,%: poke36877, 9: poke3& 
874, ,d:return 

152@ rem"knall" 

1539 poke36877,248 

1544 fora=15to2step-9.5 

1559 poke36878, a!nexta 

1568 poke3687?8, 8: poke36877,B:return 
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1579 rem"tiet" 

1538 fora=15to?step-1.2 

1598 b=zat?+128 ; 

1629 poke36378,3a:poke38377,b!:poke3& 
874, b:inexta 

16818 poke35878,49: poke36877,8:poke3& 
874,d:return 

1628 rem"mittel" 

1839 fora=1St0o?step-1.2 

16849 b=a%7?+123 

1659 poke35378,a:poke36377?,b!:poke36 
875, b!nexta 

1668 poke38378, 9: poke36877,%:poke3& 
875, dg:return 

16?@ rem"hoch" 

1889 fora=15to?step-1.2 

16896 b=a*#?+128 

178% poke38878, a:poke36377,b:!poke36 
876,b:nexta 

1719 poke36878, 8: poke35877,@:poke36 
876,9:return 

1728 rem"pause" 

1738 fora=s1ito2@@:next!return 

1748 rem pop 1 

175@ geta$: ifas="1"thengosub19668 


1788 ifat="2’thengosub3444 
1778 ifa$="3"thengosub39&48 
1788 ifas="d"thengotoS2g 


1799 gosub157?@ 

18898 forx=iltot:’next 
1818 gosub17?28 

1828 forx=1totinext 
1839 gosub152@ 

1849 forxs=Itot!inext 
1854 gosub157?8 

1888 forx=1tot:!next 
1878 gosub1579 

1834 forx=1ltoti!next 
1898 gosub1?729 

1988 forx=itotirext 
1919 gosub152# 

1728 forx=itot:!next 
173% gosubi?728 

17948 forx=itot:next 
1959 gotoi?4g 

1988 rem fill in 1 
1979 gosub1529 

1988 forx=itoti!inext 
1999 gosub1528 

Z2A88 forx=itot!next 
z818 gosub1728 

29828 forx=1ltot:next 
2938 gosub15298 
2949 forx=itot:!next 
2959 gosub1529 

28858 forx=itotinext 
2879 gosub1728 
2838 forx=itot:next 


een 


Ahythmophon u 


298978 gosub1478 2678 forx=itot:next 
2188 forx=itot:next 2688 gosub16?8 

z118 gosub1478 25898 forx=itot:!next 
2128 forx=itot:inext 2788 gosub1678 

21398 gosub1679 2718 forx=itot:!next 
2148 forx=itot:next 2728 gosub1?28 

z159 gosub16?8 2738 torx=1itot:next 
z188 forx=itot:next 2748 goto2538 

2178 gosub16529 27’5@ rem rock i 

2188 forx=itot:next 2789 gosub157& 

2198 gosub1628 2??8 forx=1tot!next 
2298 torx=ltot:next 2788 gosub17298 

z21@ gosub1729 2798 forx=itotinext 
2228 forx=itot:inext 2888 gosub152% 

2238 gosub1474 z8i@ forx=itot:!next ° 
2248 forx=1itot:inext 2828 gosub152%8 

22580 gosub1479 2839 forx=itot:’next 
2268 forx=itot:next 2348 gosub157?8 

2279 gosub1&6268 2858 forx=i1totinext 
2288 forx=itot!next 2888 gosub1?28 

229789 return 2879 forx=itot:!next 
23698 forx=itotinext 283358 gosub152g@ 

2318 rem rock 2 2898 forx=1itot:inext 
2328 gosub157@ 2978@ gosub1728 ‘ 
2339 forx=1ltot:!:next zP18 forx=itot:next 
2348 gqosub1?28 29728 gosub157%8 

2358 forx=itotinext 2938 forx=itot:next 
2368 gosub1S2@ 2748 gosub1728 

2378 forx=litotinext 2958 forx=ltotinext 
2388 gosubi1?r2A ZF58 gosubiS52 

2398 torx=itot:!next 2978 torx=iItot:!next 
2499 gosub15?@ 2788 gosub1529 

z241@ forx=itot:next 298 forx=itotinext 
2428 gosub1474 32a98 gosub15?E 

243@ forx=itotinext 32198 forx=itot:next 
z44d gosub15243 3028 gosub1628 

2459 forx=sitot:next 3839 forx=ltot:next 
2459 gosub1729 s84@ gosub1628 

2478 forx=itotinext 3858 forx=itot!next 
2488 getas:ifas="i"thengosubi1r5%8 s3gsf gosubiä2d 

2498 ifa$="2"thengosub3649 38798 torx=itot:next 
2598 ifa$="3"thengosub3F5# 3929 getas:itfas="Ö"thengoto52® 
2518 ifag=-"@"thengotoS52® 39978 ifas="1’thengosubiröA 
2528 goto231# 3188 ifa$="2"thengosub3644 
2539 rem pop 2 311 ifa$="3"thengosub3F69 
2548 geta$! ifa$="@"thengoto52g 3126 9g0ot0275@ 

2559 ifas="1"thengosubi196d 3138 rem tango 

2568 ifa$="2"thengosub3ös4d 3148 gosubiS?7A 

2579 ifa$="3"thengosub39&9 315@ forx=itot:next 
2588 gosub15?74 3162 gosub1?728 

2598 forx=litot:!next 3178 forx=Itot:next 
ZERG gosub1529 3189 gosub1S?7d 

zZ&ld forx=ltotinext 3198 forx=itot:next 
zZesr7d gosub1728 3288 gosub1?728 

26329 forx=itotinext 3218 forx=itot:inext 
26846 gosub1578 3224 gosubi5?74 

2858 torx=itot:inext 3239 forx=itot:nexrt 


Zö5ET gosub1F?78 32494 gosub1?28 
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3239 forx=1ltot!next' 3830 3osub1572@ 


3288 gosub15?7& s8493 forxsitot:!next 

3278 forx=1tot!next 3859 g90sub1528 

323% gosub13528 SsS54 forx=itotinext 

3299 forx=iltot:!next 3370 gosub172G 

s30@ getas: ifa$="@"thengotoäzg 3388 forx=itotinext 

3318 itas="1"thengosub196% 38399 gosub1679 

3328 ifa$="2"thengosub3644 S3P8% forx=iltot:inext 

3339 ifa$="3"thengosub376d sFr19 gosubi1S?@ 

3348 qg0ot0o3138 39298 fors=itotinext 

3359 rem walzer 39738 gasub1624 

3368 gosub1578 3748 forx=itotinext 

3378 forx=itot:!next i 3739 return 

3388 gosub17?2@ 3768 rem fill in 3 

3378 forx=iltot:hext 39779 gosub167% 

342g goasub1528 3934 forx=ltotinext 

s341d forx=ltot:next 3778 gosub1&r@ 

3428 gosub1?28 agad forx=eitotinext 

3438 forx=sitot!next 4519 gasub1629 

3444 gosub1528 9928 forx=itot!next 

3458 forx=itotinext 4938 gosub1629 ö 

34&9 gosub1?2@ aaa forx=itotinext 

34?8 forx=1tot!next AaAS2 gosub15S78 

3488 gosub157@ 49388 forx=itot!next 

3478 forx=itotinext 4579 gosub15?9 

3502 gosub1?2@ 4838 forx=1itotinext 

3518 forx=itot:next 4899 gosub1524 

33528 gosub16478 4ldg Forx=itotinext 

3538 forx=iltot!next 4119 gosub1728 

3548 gosub1&78 4128 forx=itotinext 

3559 forx=itot!next 4138 return 

33688 gosubils?rd 4138 rem rhythmophon ====:2?78 
3572 forx=itotinext 4159 rem 28077 bytes memory ==== 
358% gosub1728 4188 rem 67277 bytes programm ==== 
3579 forx=sitoti!next 4178 rem 90322 bytes variables ==== 
3599 getas 4188 rem 90966 bytes arrays ==== 
361 itfas="L"thengosub382% 4199 rem Q1173 bytes strings s=e== 
3628 itfa$="A"thengoto52g 4288 rem 19385 bytes free ==== 


3539 9003358 

3ö48 rem fill in 2 
3559 gosub1528 

36698 forx=itot:!next 
3578 gosub1678 
3689 forx=itot!next 
35724 gosub1?2E 


PLANET X 


Adventure 1986 by Haße 


lauern Riesenspinnen, 


3789 forx=ltotinext (c) 1986 by COMMO- wilde Tiger und viele 
371@ gosub162@ DORE WELT andere biutdursfigs Uh- 
3728 forx=itot:!next geheuer auf den Com- 
37248 gosub16?2@ Auf dem Heimflug zur mander und darauf, ihn 
rad Fürzeltotäönext Erde ist Commander Phil zu verspeisen, zu zer- 

; 3 Reed mit seinem Raum- uetschen oder lediglich 
3759 gosub162G | ie em q & 
ee Zu I schiff in Schwierigkei- zu zerfleischen. Versu- 
S769 forx=itot!next ten geraten. Er muß auf chen Sie, dem armen 
3778 gosub147& dem unerforschten, erd- Commander zu helfen, 
3788 forx=Itot:next ähnlichen Planeten X. den vielfältigen Gefahren 
3796 gosub1474 notlanden. Hier stellt zu trotzen, ihm die Re- 

an t sich heraus, daß Planet X  paratur des Raumschiffes 
3888 forx=itotinext gar nicht so ungefährlich und damit den Heimflug 
3318 return ist, wie Commander Reed zur Erde zu ermöglichen, 
3828 rem fill in (1) das annimmt. Denn dort Bitte lesen Sie weiter auf Seite 67 
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LISTINGS 


18 GRA=48#16:DIMG$( GA) :REM Ai 

28 G$LB) =" - kA/  / jy 

38 G$L 1) =" i i 1 u Be Ze zu“ 

48 G$L2) =" [a u a kail ne E98 

sB GH 3) =" DE. 5 ur Zu u 

68 G$LA)=-"IE / a 2 u De ee Zu ze 

78 G$(5) ="imal m. "Em FE. Keil". rg 5 nee 

88 CHE)" 7 oe [4 IRRE: u 1" u) ee as a 

98 GHL7)=-"i  / “ Tenmeitinm E, fl nn 
188 G$L8) -"iiä/ // iR ET 5 TE en . 
118 G$HLI) =" / I MT DE |. u + Bu | + 7 u er 
120 GH IE)" / 7/0 jr a / = y wur 
138 G$L 11) "IH F emummmmmeRiihhunn RE aaa Ban tete 
148 G$( 12)="DAS RAUMSCHIFF STEHT AUF EINEM "” 

158 6$( 13) ="BERGIGEN PLATEAU -INMITTEN EINER" 

168 G$( 14)="UNENDLICH WEITEN WUESTE. IM NORDOSTEN" 

178 G$( 15)="ERHEBT SICH EINE HOHE FELSBARRIERE. =” 

188 REM P.A2 

198 G$L 16) = -" Im mai" 

288 G$( 17) = "m st zu" 

218 G$L18)= "Im PER zum 

228 G$L19)= "im ee au" 

238 GE 20) 2 T enniunnn ie Ele 
248 G$L21)= "ill f a Fo N: ee 5 _ 

258 G6$L22)= "EI . nn. „ Ti 7 u A ee "1 
268 G$L23)= "Ei m. m. u u a TTTTITZ Be Li 
278 G$(2A)= "El =. . Fe 

288 G6$(25)= "WE Ya ae u Be 
298 G$( 26) ="1 Ps [ Big 

388 G$L 27) ="ım ER = zug" 

318 6$( 28) ="DER TROCKENE SAND KNIASCHT UNTER DEN” 

328 6$( 29) ="SCHUHEN. KEIN ZEICHEN VON LEBEN -"” 

338 6$( 38) ="SOWEIT DAS AUGE REICHT. JETZT NUR” 

348 6$(31)="NICHT DIE ORIENTIERUNG VERLIEREN. 24" 

358 REM P.A3 

368 G$L32)= "irn une 

378 G$L33)= "an BETTER Fu ee a = Teen iuiater 
388 6$( 34)= "18371 ie I 4 | ne a 
398 G$L35)= "ii A I 4 Be H I l j Ei" 

au8 G$L36)= "ii a ar i I j | a a: | [el 

41m G$L37)= "ia I Aw 4 a I | i za" 

428 G$(38)= "13 i I | | an | zn" 

438 G$[39)= "im | ii I i | 24 ur u 1) 

448 G$(AB)= "ii I ) Be] j iz" 

458 G$LA1I)= "si ee a ä [ [ ı a" 

468 G$ ( 42) we ee an a a nn ana anal a a Zee 
478 G$LA3) =" Bun Fu BEE 

488 G$( 44) ="BEDROHLICH RAGT DIE ROTE FELSWAND" 

498 G6$(45)="VOR IHM AUF. UMOEGLICH ZU BESTEIGEN." 

588 G$(A6)="DER FELS IST GLATT.NICHTS REGT SICH.” 

518 G$(47)="UNTERHALB FUEHRT EIN PFAD ENTLANG. Dig 

528 REM P.AA 

538 G$L 48)= "lan zum" 

548 G$LA49)= "ii a -- Bu 1 mE" 

558 G$L58) = "la Ir m Le 
568 G$HL51)- "a a ie me” 
578 G$L52)= "iu Ins ee "Zee 1 ee Size zu" 
588 G$L53)=- "il sr 21 Ber u a 4 ungen 
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LISTINGS 


598 
698 
618 
628 
638 
648 
658 
668 
678 
688 
698 
788 
718 
728 
738 
748 
758 
768 
778 
788 
798 
888 
818 
828 
838 
848 


869 
878 


G$L5A)= "in. Mann m. ae. . A "ir zu" 


BEL55E) E. ST. = 
GHL56)=- "ii. . 1 1 == ae 1 
GH) =- a Mn I en en At | RE 12) 
ann ae ae U Fe En — mn 
6$(59)=-"H  - .1I .. & BR u — Bi” 

6$( 68) ="EIN VERDORATER KNORRIGER BAUM AUF” 
G$(61)="EINEM KLEINEN HUEGEL. GROSSE " 

G$( 62) ="MASSIGE FELSBROCKEN VERSPERREN" 

G$( 63) ="DIE AUSSICHT. 23” 

REM P.AS 

G$l6A)= "ia ı | ) | | une 
G$L65)= "a I | Eı vn ) I 
G$L66)= "mi ji | | N au 
G$(67)= "ia i Ba ) u ie 
G$(68)=- "Im a Ber.) 1777 “ | Bu" 
6$(69)= "ix u kai a Be |, 
G$L?7B)= "is Bj Be Bu" 
GHL7I)=- "ini u" nr TEE 
G$(72)= "ia u e [> ey Zu) 
G$73)= "ai mm en | Il ) zu 
G$L7A) =" ME Te gg 
G$l 75)" . 5 7 Ka ee a -- _ 
G$(76)="DIE HOEHLE SCHEINT WEIT IN DEN BERG" 


6$(78)="NIEDRIG. COMMANDER REED BLEIBT STEHEN” 

6$( 79) ="UND LAUSCHT ....zu" 

REM P.A6 

G$(88)= "ia Eu" 

G6$LB81)= "a Baum 

G$(82)= "ai 27 a — Bar 
BELB3)=- ri en = 99 >, an ee iger 
GHL8A4)= "il / =. A De ae 
G$(85)= "ini “ ni | Be" 

G$L 86) = Emm mm nn 1) 
GB) - "U - 0100 a 11, 

G$(88)= "iz unge 

BEL ——  —— —  —— gar 
G$L98)=-"i . "m. ee 
EHI)". . [TI ; a | 

6$( 92) ="EINE STRASSE.BREIT WIE EINE FLUGZEUG-"” 

G$( 93) ="LANDEBAHN. SIE FUEHRT NACH OSTEN UND" 

G$( 94) ="WESTEN.NACH NORDEN UND SUEDEN FUEHREN" 

6$( 95) ="ZWEI STEINIGE SEITENWEGE....ıi" 

REM P.A? 

G$L96)= "ia Pe | B Ireil | | | u" 
G$L9Y7)= "a ı ı Im Il N | zur 

6$( 98)= "I 4 E ea] I 8 u zu" 
G$(99)= "ia | mu je | ) ") wir 
G$L180)=- "ia. I Pe ) [| ei" 
BF 181)= "m m. Eh BE | EB - mr 

GEL 1B2)= "A nm EM | ! - „Tuer 
G$L183)= "an. m el N ns Ve 
GELIBA)= "IE “mm” ET 5 "rem BER 
G$L185)= "a 1 ii | er ) ", 

G$L 186) =" | | E _  - ) ) ) 1 

G$C 197) ="15 ) i NaH be 8 | I} u _ Ts 


G$( 188) ="COMMANDER REED HAT EINE TUECKSICHE "” 


nn mn Sch ag >> >yb> Eu u 


LISTINGS | 


1178 
1188 
1198 
1288 
1218 
1228 
1238 
1248 
12358 
1268 
1278 
1288 
1298 
1388 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
14608 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
17489 


G$L 189) ="FELSSPALTE UEBERSEHEN. ER KANN SICH" 
G$[ 118) ="NICHT MEHR HALTEN UND STUERZT MIT” 
G$( 111)="EINEM LAUTEN AUFSCHREI IN DIE TIEFE!” 


REM P.AB8 

G$L112)= "ak ! bo En ame 
G$L 113)= "im we 0 8, ea Be | zu" 
G$L114)= "Im i | ne et ) Bi zu" 
G$L115)= "ai ! — Bi Ä ) za" 
GEL 116)=- "il r Pa Insil N ) zu" 
G$L117)= "a I „r | jem Bi) ee u zu" 
G$L118)= "I x | ) [23 Ka I "1 
G$L119)= "is e. Pe la | a 
G$L 128)= "in ! ven heil “ zu" 
GH 121)= "a. R Fe a um" 
G$L 122) =" A A a m a" 

G$L 123)=-"i 5. u Bu Tg 


G$L124)="VON DEN STOLLENWAENDEN STRAHLT EIN” 

G$( 125) ="EIGENARTIGES FLUDRESZIERENDES LICHT" 

G$( 126)="UND ERHELLT DIE DIE DUNKELHEIT DER" 

G$L 127) ="STOLLENGAENGE..... 2” 

REM P.A9 

G$L 128) = "iz . mu” 

G$l 129)- "En. —e ER a. mi" 
GELI30)- "TE ze TE ua ng 
B$L131)=- "im u zur 
G$L132)= "im Pe Fe Be - De 
G$C133)- "mi Bi. mE ur 
G$L 134) = 1 Tee j Den ni 
BELI35)= "im nn 

G$L 136) = "iz . 
G$L137)=- "EL 0. We -.62 zur 
GBELI3B)-"a "63 . —y 
GEL 139) ="iz . Bl | I Pe "7 
G$( 148) ="DIE BREITE STRASSE KREUZT SICH HIER" 

G$( 141)="MIT EINER ANDEREN. NACH ALLEN” 

G$( 142) ="RICHTUNGEN KOMMT MAN WEITER.” 

G$( 143) ="COMMANDER REED UEBERLEGT.... 3” 

REM P.AA 

G$L144)= "ic um" 


G$L 145)= "im  TTTER u + 1 u © I ET 


G$HL 146) = "Ir mim a 
G$L147)= "Im era 1 ic} mo wie 


G$L 148) = "TEE anunnnnnanannennmnennnnunnenunnuunmem le Al 1 [EHE nennen aan mi" 


G$L 149) = "Il ; = |: Er ae Be Ba Bu | g = zu" 
G6$( 158) = "ia - Kal Il ] 
GH 151)=- "al . . 9 Il dal Pe zu" 
G$L 152)= "Isa a . [#1 It 


EP a T — zu” 


GEL 154)" m. Be u am 
G$L155)="I . a 9 I 

G$( 156) ="BEDROHLICH STEHT EINE STADTMAUER vor” 
6$(157)="IHM. ES IST STILL - UNHEIMLICH STILL.” 

6$(.158) ="DAS TOR ZUR STADT IST AUS MASSIVEM” 

G$L 159) ="GLAENZENDEN STAHL. 23” 

REM P.AB 

G$L 160)= "ia j ie De I za” 
G$L161)= "il j [} Fe nn" Be Fi I auge 
G$L162)= "il —_ u | AL Kiel 1 j Baigre 


Tele _ umemsansan lan ui" 
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LISTINGS 


1758 
1768 
1778 
1788 
1798 
1888 
1818 
1828 
183@ 
1848 
1858 
1868 
1878 
1888 
1898 
1998 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2908 
2818 
2028 
2838 
2048 
2058 
2068 
2078 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 


G$L 163) = "Is BE I Ei Kal. | zu” 


G$( 164)= "ii I Pa 1 u Pe oe u I “ii Aue“ 

G$L 165) = "im Pe m JE ja Ei bs) I Bu“ 

G$L 166) = "iii a hai zu 

G$L 167)= "I „TE a a 1a “ zur 

G$L 168) = "ii a | I Bu Il - u 

GEL 169)= "ii - | Bo | Sn an 

G$( 178) =" 2 ug RE TT , a ER 30 ran m KRi®® 

G$L 171) =" / Fa — u Bu a" ‘ 


G$( 172)="EINE STEINLAWINE HAT SICH GELOEST UND" 
G$L 173) ="POLTERT DONNERND ZU BODEN." 

G$( 174) ="COMMANDER REED VERSUCHT NOCH AUSZU-" 
G$L 175) ="WEICHEN - ABER ZU SPAET 1113" 

REM P.AC 

G$L176)=- "im Pa : a ae - zu" 
G$L177)= "di m i TO: Be > u A. zu" 

G$L 178) = "iz x u _ . 50 auge 
G$L179)= "iz mama. m m ad. cm TI DT me 
G$C 188) = "ini 1] 5a u > DR MBRER 5 HN EEE. 
G$L181)=- "Is I] na "= ru ag Ba u a Ba u 
G$L182)= "I nun. u za LI Lie 
G$L183)= "in h ‚ mod 2 io 5 : u" 
G$L184)= "si . m -— m ii. wi. u“ 
GEL 185)= "a ET I . 8 zu” 
G$L 186) =" mi Bm /.  : mu" 

GEL 187)" LT U 5° 
G$( 188) ="DIE LANGE DUNKLE GASSE WIRKT WIE" 

G$( 189) ="AUSGESTORBEN. DER ABFALL TUERMT SICH" 
G$( 198) ="METERHOCH ENTLANG DEN GRAUEN" 

G$C 191) ="HAUSWAENDEN.... . 24” 

REM P.AD 

G$LC192)= "ia we zu" 
G$L193)=- "I 1 “ | oe 
G$L194)= "a | u er j a a 


G$L195)=- "mi 1 | 5 
G$L196)=- "a 1 ! if Di u 
G$L197)= "im e | I ET | unmer 

G$L 198)=- "I ) ) | TEEN zu" 

G$L 199) EM Fr 12 Be a a a any Beil I a a Su —" 
G$( 288)= "a - _ - ) Bun 
G$L281)=- "ia - _ - 1) | ) zuge 
G$L 282) =" —- _ _ all zur 
G${ 283) "Ic all i ame 
G$( 284) ="DER COMMANDER IST AUF DEM SCHMALEN" 

G$( 285) ="PFAD AUSGERUTSCHT UND IN DEN TIEFEN" 

G$( 286) ="BERGSEE GEFALLEN.’ ZUM HERAUSKLETTERN" 

G$( 287)="SIND DIE UFER VIEL ZU GLATT. 28" 

REM P.AE 

G$L288)= "ii 1 | Dan 1 Be Bu Be | | u" 
G$(289)= "ia 1 ng | u | ww] ) zu" 
GH 210)= "ii u > Me ee Ge = a ge 
G$L211)= "ii | TEE LETTER | ) une 
G$l212)= "ii 1 PB. SE ” uae 
G$L213)= "ii Pe ar | 4 u 
G$L214)= "Mi EARZE  iter Er. —- nl mi" 
G$L215)= "ia ı | Po: En REN SER an 
G$L216)= "I Fa Be Er, _ zu" 
G$HL217)= "il 1 R “ zum 


| LISTINGS | 


2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2608 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 
2758 


G$L 218) =" - M - i Ai 

6$L219)=-"Ii . - - mar 

6$[ 228) ="EIN HOEHLENRAUM - GEROSS WIE EINE = 

G$(221)="HALLE. IN DER MITTE DES RAUMES STEHT” 

G$( 222)="EIN ALTAR —- VERMUTLICH EINE " 

6$( 223) ="OPFERSTAETTE. 5=:” 

REM P.AF 

6G$L224)= "Ik rail ee ud 

6$( 225)= "ai Tin Sl Bu + ET Et + Eu u all ii 
G$l 226)= "ia nn fell hi 
G$L227)= "im m Sm Ta To nn mn u u 
G$L 228) = a a m Tan Km a a EEE TE il Miss, | N i u“ 


G$( 229)= "I Eine — a 
G$(238)= "Im - = ii. en 
G$l231)=- "di - 77 m BE Mm - ARTE. 1 mm 
G8(2325= "ii I Dr 7 = u Be 
8$C233)= "ir I Tun un - - Ei rı Bi. -ı "* 
G$EL234)="4 IT mm re BERREESERET I ma" 
Ba ie - nt 
6$( 236) ="MITTEN IN DER STADT - EINER GROSSER" 
G$( 237) ="PLATZ. NICHTS BEWEGT SICH - EINE” 
6$(238)="SCHMALE STEILE TREPPE FUEHRT NACH 
6$( 239) ="UNTEN. 
REM P.BO® 
G$L 248) = "ii I Bam 
G$L241)=- "ii. 1 = 
G$L242)= "in | 
G$L243)= "ai . 1 
G$L244)= "im. | 
| 
| 


G$L245)= "ini. 

G6$L 246) = "mi 
G$L247)= "is 

G$( 248) = "iM ® 
G$L 249) = a A ur 
BG$L 258) =" . - z ee ul 5 

G$( 251) =" e _ BL 1.3.72 u Bi 
G$( 252) ="DIE TREPPE FUEHRT In EINEN KAHLEN, " 

6$( 253) ="DUNKLEN KELLER. DER RAUM GABELT SICH" 

G$[ 254) ="HIER. VON NORDEN HER DRINGT SCHWACHER” 

6$( 255) ="LICHTSCHEIN INS DUNKEL... 

REM P.B1 

G${ 256) = "ink na 

G$t257)= "mi BT TE Be 


Te 


2768 
2778 
2788 
2798 
2898 
2818 
2828 
2838 
28548 
2858 
2868 
2878 
2888 
2890 


G$( 258) = a ee se ae 
G$L 259) kai 89 ERBETEN BFH EEE BEIHUMHHGHAFMLHERERNSTKLEFRERFERRE HMI HERFEREFEHREHIEREHEHLICHIRSEFTF ER IENERFEFER PH RAEELFRFRGH 
G$L268)= "si ) an" 
GEL261)= "Rä i | aiter 
G$L262)= "ia | 
G$(263)= "im "he Eu ee z 

G$L264)= "ia u Br gg. ie 

G6$L265)= "ini un We. Eu We) 

BR Be 
G$L 267) = h _ - - 0. Be 

EC 268) ="DIE HOHE GRAUE MAUER RINGS UM DIE” 

G$L 269) ="STADT BIETET KEINEN DURCHSCHLUPF .” 

G$( 278) ="ES MUSS EINE MOEGLICHKEIT GEBEN” 


B 
ie 
3 


WTT 


6$( 271)="IN DIE STADT ZU KOMMEN... . =,” 23 


39 


REM P.B2 

G$L 272)= "is! = jean heil Br i war 
6$(273)= "im i jun hs 1 1, 
G$L274)= "isi . i IBE kei i ee u 1, 
G$L275)= "ii i U Su u Bm 
6$(276)= "im ! bet 4. 2-1 i | I Bir 
6$(277)= "mi 7 a | | I mm 
G$L278)= "ki ee. | = ar ) | zuge 
6$( 279) = "ei | ze ee A Augen 
G$( 288) = "ini N FE | ae 
G$L281)= "Mi .- Pe ag | zune 
G$C 282) ="i # .; Ey # zu" 


G$( 283) =": ee a Bu The 
G$( 284) ="DER UNTERIADISCHE STOLLEN VERBREITERT" 

6$( 285)="SICH NACH NORDEN HIN. DER AUSGANG" 

6$( 286) ="AUS DIESEM LABYRINTH SCHEINT NAHE” 


G$(287)="ZU SEIN...... zur 

REM P.B3 

G$( 288) = "ic u 1-1 FH ae 
G$( 289)= "im Au ix DE a il. ge 
G$(2908)= "si Er u ",, 
6$L291)= "ia , Fe sine 
G$(292)= "iz rn ie Em Feet = zu” 
G6$(293)= "in Pe u Se Ba Bu u ar 
G$L 294)= "is BERN ELIEETL TRENNT il TE, i zu" 
G$L295)= "ini 7 A Ka Äh auge 
G$L296)= "ij a e unter 
G$L297)=- "in . [eg uuiger 
G$L 298) ="iri . u u : 5 | ange 
G$( 299) ="isi a A —— | i BEagge 
6$( 3088) ="EIN BIZARRES OEDES GEBIRGE LIEGT * 

G$L3B1)="VOR IHM. NACH OBEN FUEHRT EINE" 

6$( 302) ="EXAKT IN STEIN GEHAUENE TREPPE.” 

6$( 303) ="NACH OSTEN ZWEIGT EIN PFAD AB... . zur 

REM P.BA 

G$L304)= "za I} | em rem IL. _ a 
G$L385)= "is Kal | Du vu u a BE u 
E$L386)= "iq cn a: La we 
G$L387)= "iz =] I a a 17 sar- kungen 
6$L388)= "iz =] ET Veh sa zu” 

G$( 389) = "ij ia] I oa Bar gar” wir 
G$L318)= "izj =] BT Pre mu" 
G$C311)= "ig Ita] a | ame 
G$C312)= "in Ita] #7. Tan 5 min" 
6$l313)= "1 . 5 ME ; = um au" 
G$L31A)="i . Mi, : “El zu" 

G$L 315) =" : RM | gie 
6$(316)="IN DER DUNKELHEIT IST EA GEGEN " 

6$(317)="EINEN BALKEN GESTOSSEN UND HAT IHN" 

G$[ 318) ="UMGEWORFEN. DIESER BALKEN HAT EINE” 

G$( 319) ="BAUFAELLIGE WAND ABGESTUETZT..... a 

REM P.BS 

GEL328)= "U m. nn EEE TI Den nr | ma 
G$( 321)= "” RESP CH 7 zu" 
6$(322)= " une SE 
EEL3237= "TI II IE TAT III IE TA N Tem 
G$l324)= " ----- nl. AT ee er 

BEL 325) TI II ES zu" 


| LISTINGS | 


3488 
3498 
3588 
3518 
3528 
3538 
3548 
3558 
3568 
3578 
3588 
3598 
3688 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
37408 
3758 
3768 
3778 
3788 
3798 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3988 
3918 
3928 
3938 
3948 
3958 
3968 
3978 
3988 
3998 
4888 
4818 
4928 
4838 
48408 
4858 


G$( 326) = " STE Te Il | zu" 
6$( 327) = " u ae. ee u 
G$(328)= " 1m er si - ı mm 

G$[ 329) = ".-- EEE BEE EHE je Br gu“ 

G$L 338) =" 12T a Il key“ 
G$L331)="IH.  - a en Bu Tg 
G$(332)="EINE RIESIGE HAARIGE SPINNE HAT IHR" 

6$( 333) ="TOEDLICHES NETZ GESPANNT.” 

G$( 334) ="COMMANDER REED HAT SICH RETTUNGSLOS” 

6$( 335) ="DARIN VERFANGEN. .. 23" 

REM P.B6 

6$( 336) - "im er | En 
6$(337)= "im i | I- - 07 | 1 

G$( 338) = "in | Pi i ET | ı mar 

G$( 339) = "im | . + wm ei 1 um 
G$L3409)= "is . u." KM | ı ma" 
6$(341)- "ia | Pe = Bi | | a 

G$( 342)= "ia | ! A or mar 
6$L343)=- "mi | PB mar 
G$L344)= "mi 1 ar Bi a * | nu" 
G$L345)= "im | | ne je .n zu" 

G$( 346) =" -- N, a. .* zur 

G$L 347) ="i a n eu" 

G$( 348) ="GRELL SCHEINT DAS TAGESLICHT DURCH” 

6$( 349) ="DIE STOLLENDEFFNUNG HEREIN.” 

6$( 358) ="COMMANDER REED BESCHLEUNIGT" 

6$( 351) ="SEINE SCHRITTE ....i” 

REM P.B7 

G$L 352) =" Ian. za 

G$L 353) "Il mu un Fr mu" 

G$( 354) ="! 1773 Te rg 
G$L[ 355) =" 1aT73 . * u a u 
G$L356)=-" A / IE De 4 u 7 zu" 

G$L 357) ="1i3 + se + u nn zum 

G$( 358) =" / +) FL. a KT " nm 
BEC3597 “m 1!» LM DB. 5 u 
jeX Tpc1:T.) E 1.117 Zus Zee 1 u En |, 
GHL3E1) =" / ae 9 2 

G$( 362) ="im ni i a “ ya 

G$( 363) =": - m an sg” 
6$(364)="MITTEN AUF DEM PLATEAU STEHT EIN” 

6$( 365) =-"RAUMSCHIFF VON DER ERDE - EIN ALTES” 

6$( 366) ="MODELL UND TOTAL DEMOLIERT -WIE NACH"”' 

6$( 367) ="EINER BRUCHLANDUNG...... ze" 

REM P.B8 

G$L368)=- "ka 1 jet Sal a" 
G$L369)= "a 1 | Tu DE u u | 1 um 
G$L370)= "ni 777 mu —ERM | IT Mm io mm 
G$L371)= "im IR Far. m m m 
G$(372)= "m 1 ee zu | 
6$(373)= "a 1 1 o >: Ban | u 

6$( 374) = "im erg | u | zu” 

6$( 375) = "im u | u u ı er 
6$[376)= "I e I ET Er | ı a" 

6$( 377) = "im 4 Te rar 

G$C 378) =" | u 1 am 

G$( 379) =" 1 7 ma" 


6$( 388) ="DER SCHMALE BERGPFAD IST UNTER REEDS" 
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LISTINGS 


4868 G$( 381)="FUESSEN ABGEBROECKELT. MIT EINEM” 
4878 G$( 382) ="AUFSCHREI STUERZT ER FUENFHUNDERT"” 


4888 G$( 383) ="METER IN DIE TIEFE..... ” 

4898. REM P.B9 

4188 G$(384)= "I ne BR 

4118 G$(385)= "il. Fa nn PERL VESBERER Et 

4128 G$L 386) pn wi WE Er a Bat a ER N u” 

4138 6$( 387)=- "ia “. an, „ Be Ge Ze 

4148 G$( 388) = "ia n Fe m ae mar 

4158 G$L389) = ER ITTTTTT T— ——  TTTT u" 
4168 G$(398)= "Ei I Pe "1 Tue PEa Dear en le pe pe ap Bau a 7 ee Tu 
4178 G$L3Y91)= "a —. m To. mn - mm, SIT. 
4188 G6$( 392) = "1a | Me 7 ı gm 
4198 G$(393)= "13 un, re arg et 
4288 G$( 394) ="13 er Ge e R - „ R "ir zu" 

4218 G$( 395) ="i Pu - _ u 

4228 G$( 396) ="VOR IHM LIEGT EIN WEITAUSGEDEHNTES" 

4238 G$C 397) ="BLUEHENDES TAL. DIE LUFT IST WARM" 

4248 G$( 398) ="WIE IM FRUEHLING IN SEINER HEIMAT" 

4258 G$( 399) ="KENTUCKY...... m“ 

4268 REM P.BA 

4278 G$LABB)= "Ei 9] I une 

4288 G$LABI)= "Ei. ne Hi! j | ı u" 

4298 G$LAB2)= "EN ee Bi ee u 
4388 G$(483)=- "il Tag 1 u + u I ii am 
4318 G$LABA)= "ER ” 1 RIRASENEN ARE + Bu |. | BB ed u ur 
4328 G$LABS)= "a ET | | ee ı Ei 
4338 G$LABE) - "I Mi . „IT TTTTTTTTTITTTSRn 5 ) 1 am 
4348 G$LABT)= "IE EM Tee gg € FR u 
4358 G$(A88)=- "fi MI —. ie“. Bu: -Peoe r re" 


4368 G6$(489)= "EI TE 3 m ILL LLILIL LI, a er a u” 


4378 G$(418) =" Mi = . = = R a u 15 
4388 G$LA11) =" Br l = p Fa > 


4398 G$(412)="EIN VERROSTETES RAUPENFAHRZEUG ” 
4488 G$(413)="STEHT AUF EINEM FELSVORSPRUNG." 
4418 G$LAIA)="ES SCHEINT VIELE JAHRE SCHON NICHT" 
4428 G$(415)="MEHR BENUETZT WORDEN ZU SEIN. 4" 
4438 REM P.BB 


4448 G$LAI6)= "IN Te I j Ei j j ee ae Bu 
4458 G$LA1I7)= "ii | IE: | nn u i I ma ie 
4468 G$LA18)= "Ei 3 IBER u: 15 7 un I _ u.) Ba Bu Bu 2) 
42978 G$LA1IY)= "il I Emm... . — Bl | BE m BE 0 u“ 
4488 G$(A4208)= "ak. 1 72: Er ne JERS I 2 za" 
4498 G$LA21)= "ia -. I a ee ae ss - a" 

4508 G$(A22)= "19 emnmmnsannmmen. 2” Fe j I Fe ee 1) 
4518 G$LA23)= "Im. m rl "u rommmemnnensnmnnsmennmemmmnm ff.” | BEI 
4528 G$LA2A)= "IA -mnememnmemansunmmm” | EN Ti 0 RR 
4538 G$LCA2S)= "Id I 1 I I | I I ii Bm" 

4548 G$(A26)=-" | 1 er I I j I I me 

4558 G$( 427) ="13 I I j I [ | N u Tl 


4568 G$(428)="DIE GEBIARGSGEGEND IST STEIL UND" 
4578 G$( 429) ="UNWEGSAM. EIN SCHMALER GEBIAGSPFAD" 
4588 G$( 438) ="VERLAUEFT UNTERHALB DER HOCHAUF-" 


4598 G6$( 431) ="RAGENDEN FELSWAENDE..... ie 

4688 REM P.BC 

4618 G$L 432) = "El 7 nn en Bar PR DR Se SE Na AR a Bu | uud 
4628 G$LA33)= "IA m let m m een et et 
4638 G$LA3BA)= "IA m I a > 2 Er Baar 
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LISTINGS | 


M548 5HLA35)= "ir 1 NT NT UT TI a Ra zu” 


4658 G$LA36)= "ik / Ei? 1, 

4668 G$(437)= "iz = 4 a 

4678 G$( 438) = a nn gan 
4688 6$(439)= "ii - - Pa = Be > 


4698 G$LA40)= "Hi - - - = ea a A 

4788 G$(441)=- "ir - a ion = ss, = ee ar 

4718 G$L 442) "a... mm ErUn IE rc rt mnaeer een rar IBSRIRES FRECHE EPL FM ETRCIBISSUNPEKBEentt us REIF EEFERRBRP LPG EG zart nn zu” 
4728 G$( 443) =" . Dr Een 5 ET 

4738 G$( 444) ="EIN GEFAEHALICHER REISSENDER FLUSS” 

4748 G$(A445)="MIT TUECKISCHEN STROMSCHNELLEN BE-"” 

4758 G$( 446) ="ENDET JAEH SEINEN WEG. AM ANDEREN " 

4768 G$(447)="UFER BEGINNT DER DSCHUNGEL... . 23" 

4778 REM P.BD 

4788 G$LAAB)= "il. Dt te 
4798 G$LAAI) = Ad Pan nt Te 
4888 G$L458)= "Mi I m. .. ET ET 
4818 G$HLASI)= "in. In 1m 
4828 G6$(452)= "is. „m Tr 
4838 G$L[ 45 3) ze Rt Le eg 
4848 G$LA5A)= "IA nt te ne 
A850 G$LASS)= "I nn Dan et 
4868 [et 31 456) = Wi N a 
4878 [ef J6 457) ee m TE . 
4888 G$( A458) =" 
4898 G$( 459) ="13 nn _ a ER 

4988 G$L A462) ="FEUCHT UND SCHWUEL SCHLAEGT IHM DER" 
4918 G$LA61)="HAUCH DES UNDUACHDRINGLICHEN UR-" 
4929 G$( A462) ="WALDS ENTGEGEN. REED BEFAELLT EIN” 
4938 G$( 463) ="KOMISCHES GEFUEHL...... .. 
4948 REM P.BE 

4958 G$LA6A) = "im. Du tt nn 
4968 G$LA65)= "il De Tr 
4978 G$LA66)= "IA I In. et ee et at hat 
4988 GL 467) = "en I. Be a a a 
4998 G$LA68) = "iin. „TT- ee “un, “ x - 
5888 G$LA69)= "ih nn TTTTTTITITITEn u u u Fe 1, 
SB18 G8LA78)= "IA oT TTTTTH—n. ITS IS ee 
5828 G$LA71)= "A... - . erT Tilt = _ zu“ 

5838 G$(L472)= "ii. = p me“ 


5849 G6$(473)= "3. - x & - - 2 ge 
5858 G$(LA7A) =" - et = a ud 


5868 G$( A475) =" nn.” _ 0 = et BE 

5878 G$( A476) ="REED STEHT AUF DEM DORFPLATZ EINER" 

5888 G$( 477) ="EINGEBORENENSIEDLUNG. DIE AELTESTEN” 

5898 G$( 478) ="UND DER HAEUPTLING HABEN SICH AUF” 

5188 6G$[479)="DEM PLATZ VERSAMMELT.. .»:” 

S118 REM P.BF “ 

5128 6$(488)= "dl. I. 00.07 te ne u 
51308 6 $ ( 481 ) za Wei TE Bet TE te a Le. 0 Bi 


5148 G$(482)= "ia A a et tn BE 
5158 G$( 4 8 3) = Me Th ee IRRE Zee = nn, BEER 
5168 GL 48 4) u TE Et ya 
5178.38 485) 3 FETT—TTTTTTTTTTT Eee EEE TESTER En EEE 


5188 G$(486)=- "ia ie er ae: Ba er VS 7 Se Be a a u zu” 

5198 G6$( 487) => "1 aan. ati Bist. Bang LBmar . os ."®“ 
5288 G$lA88)= "a. I Fe m en en lm et E= 
5218 G$(489)=- "ia. 1 


m. 1a - i u » 
3 


G$LA98) =" - . = = . - oe Fe 
G$LAY91)="I13 . 5 = = a ee = et 
G$( 492) ="DER COMMANDER IST IN EINEN HINTER-"” 

G$( 493) ="HALT GERATEN. FEINDLICHE EINGEBORENE" 


6$(494)="GREIFEN IN AN. TROTZ HEFTIGER GEGEN-"” 

6$( 495) ="WEHR WIRD ER GETOETET..... ol 

REM P.C® } 

6$( 496) = "ish et. ET 

6$(497)= "ma Kae 1 Eu See ung -— u Ba 
G6$(498)= "1.8371 il ver u u — | BE Be 
G$(499)= "ka ı E38 | be a I I ui" 
G$(S5B8)= "ia ER BAER j m. mu I mu" 
G$L5B1)= "ia a I IE IT GT I |, 
6$(582)= "I I | I Il I 1 KT I zu 
G$LSH3)= "il i 1 I Izsiıı ı 11 Ba I ya“ 
G6$(584)= "iz Li [ Iıı 1 8971 I ıy 
G$LS585)=- "IA IT| [Le a a I | i um 
GEL 586) «FETT nn - - - 2. — = 
6$( 587) ="i= z a = En u el" 


6$( 588) -="EIN MAECHTIGER WASSERFALL STUERZT"” 
6$( 589) ="DIE FELSENWAND HERUNTER UND ERGIESST"” 
6$(518)="SICH BRAUSEND IN DEN TOSENDEN FLUSS.” 


6$(511)="DIE GISCHT SPRUEHT BIS ANS UFER..... u 

REM P.C1 x 
G$L 512) = Me a Eee 3 | Re ee A u | Li Du) 
EE5I3)- "a nn nn Hm on Nan Ile na 
G$HL514)= "IA LS. Fi I um 

G$C 51 5) = Min / a a ze Eu. Ines, RE u 
G$L516)= "I, ee. Bra u ee? 
6$(517)= "ia [ME a fl an ir ya" 

CH SI8)=> RHEIN. — ee 
6$(519)= "3 - -m. an - --.- - = .-_- EB" 

6$(528)= "ia - BI. a |. 
G$L521)= "iE- - ERITE = a auge 

6$( 522) "a ___. mn n - FE N  _ 
6$(523)=-"141. a re ä 2 En _ 
6$(524)="EINE SCHMALE FURT HAT DEN REISSEN-" 

6$(525)="DEN FLUSS BERUHIGT. EIN UMGEKIPPTER” 

G$( 526) ="BAUMSTAMM FUEHRT ALS BAUECKE DA-" 

6$(527)="AUEBER. DER FLUSS IST SEHR TIEF...2" 

REM P.C2 
G$L528)=- "iin. Fe nr Tr a nnd 2 ER 
G$( 529)= "sl u Su ET ug, ER a L. „a 

G$L 5 38) = "ij Ih" " a de a u Be Fe un R / I wine 

G$L 531 ) = "ee | BEE RE JE ee EC  '.) 
G$L 532) == u Er u Ye Ya Bl RR a Pr Ee Zpre SORRR. DE S00OR BER BER TR et ya 
6$( 533) = "iE} m un 


6$(534)= "3 Ic e : iD = „ = .- en" 
6$(535)= "IH Lem = 5 La). = 200m 
G$(536)- "a. ıe di . - TE 
EHSEINI- ER. IT 2-2... I 5 ; mu“ 

G$( 538) ="I3 - _ a f e 20. mm 

6$(539) =" Em nn Be 


6$( 548) ="DER DSCHUNGEL HAT SICH ETWAS" 

6$( 541) ="GELICHTET. ZWEI GRAIMMIG AUSSEHENDE” 
6$( 542) ="BEWAFFNETE KRIEGER VERSPERREN IHM” 
G$[ 543) ="DEN WEG..... m." 

REM P.C3 


| m ——— 


LISTINGS 


5888 
5818 
5828 
5838 
5848 
5858 
5868 
5878 
5888 
5898 
5988 
5918 
5928 
5938 
5948 
5958 
5968 
5978 
5988 
5998 
6888 
6818 
6828 
6838 
6848 
6858 
6068 
6078 
6989 
6898 
6188 
6118 
6128 
6138 
6148 
6158 
6168 
6178 
6188 
6198 
62088 
6218 
6228 
6238 
6248 
6258 
6268 
6278 
6288 
6298 
6388 
6318 
6328 
6338 
6348 
6358 
6368 
6378 


BELSAA)- "I HH nr Tr nn 


| a | L- nn 
G$L545)=. "S_LI rn nr Tr 2 ee 1 a BF 
G$L5A6)= "A It 7 Te td a | 1 
G$(547)= "in I DT ne Tun 
ER BREI ae we | m 
GEL 549) = "in N r " BE er u zu” 
BHLSSO)= "HH... - 20 = RE 
G$L551)= "in x 5 ei 5 ee 
6$( 552)= "IH —- =; v = = un 
G$L 553) .. ia] _ _ _ _ Euer 
G$L 554) ="1417- _ e _ u ud 
GH 555) = Pu] er e en BE er 
G$LSSE) ="MITTEN IM TIEFEN DSCHUNGEL GERAET” 
G$( 557)="DER COMMANDER AUF EINE GRUENE LICH-"” 
G$( 558) ="TUNG. KREISCHEND FLIEGEN EINIGE” 
G6$L 559) ="VOEGEL AUF...... Dr 
REM P.CA 
G$L 56 1) = "mil nr HER FREHREHOL Rn vum 
G$LSE2)= "in une 
G${ 563) = "1 Pe ee u 
G$L56A4)= "ik ne nn — 
6$( 565) = "il Bm Mn \. 
G$L 566) = "a FH | Be me Le) 
EHLSET)= "RTL ET ii Ei Bar TRETEN 
G$(568)=- "ill - - - a id a Be ;, 
6$( 569) = "il - - .—- Bel it En ri 1 aan 
G$[ 578) "ii _ - - Kl I | I I "a auge 
G$HL 571) =" _ = - nm a l ee: , nn 
6$( 572)="DER LAUF DES FLUSSES IST RASEND " 
6$( 573) ="SCHNELL GEWORDEN. MIT DONNERNDEM " 
6$( 574) ="GETEOSE STUERZT ER 588 METER IN" 
6$( 575) ="DIE TIEFE am 
REM P.CS 
G6$L576)= "iln] m. 7 Te ul et u er en ER 
EIL5IT7)= "En ii rt "mir T En u a ba N] ob 77 
6$L578)= "14 I. mu nee Te en ud 1, 
6$( 579) = "aim. I Mi Be TE m a | Tr BE 
G$( 588) = "a Pi a Bi“ 
G$HLSBI)= "Ei 7... 2 et et Ey 
GHLSB2)= "Ti .  —- un 5 =... .,. m 
G$L583)= "1a e En. a — De ul 
G$LS58A)= "ii — en ORG DE BO KO HERR OPER [> | -_ . Em 
6$( 585) = "ia _ _ EEE -_ . Bm 
G6$( 586) ="| 4” _ -_ A - _ Bil" 
G$[ 587) =" a "7 
G$( 588) ="AUF EINER LICHTUNG Ist EINE TIEFE" 
6$( 589) ="RAUBTIERFALLGRUBE GEGRABEN WORDEN.” 
G$( 598) ="EIN MENSCHLISCHES WESEN IST DARIN” 
6$( 591) ="GEFANGEN UND AUFT UM HILFE.." 
REM P.C6 
G$L5SY2)= "il et tt at Bat Bat 1 Te a a __ u 
G$C593)= "IH a, WE ee ut nt a il 
G$L59A)= "IA I um ii aim 
G$( 595) = "aim. I m Lem a a = u. Me = Er - Em 
G$L5I6) = "I. „77T Ar RN a 
BEFLSIYT)= "a nt re LLFLL- Ft E % u u EHER 
G$LSY8) = "il mt te 1 Em RE  _ 
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6828 
6838 


G$L599)= "IH nn una Er ur u 


tn BET 
G$( 688) = m a at LABRER } ut Le u Ku TER Cr” N Fi Mi nn FE, Eine 
BHLEBI)=> EN ne un 2 
. G$( 602) =" a TI ee | Pfr BE gie 
G$L 683) =" = en en a Ti 
G$( 684) ="OHNE WARNUNG BRICHT, Aus DEM DICKICHT"” 


G$( 685) ="EINE. HAESSLICHE RIESENECHSE UND" 
G$( 686) ="STAMPFT DEN COMMANDER ZU BODEN.” 
G6$( 687) =" JEDE GEGENWEHR IST ZWECKLOS.. .2:" 


REM P.C? 

G$L 688) = "I aim" 

6$( 689)= "3 KITTS Yu I — I Ei 2 
GFHLEIH) = "ihre mm em il Taler  Iiam ana 
G$L611)= "il Bi. lu Bl u un“ 

CH EI2)= "Amann Mi. || En m WITT Li 
G$( 613)=- "ala e x Bi. 11-0 Bl = zu" 
G$HL61A4)= "ii z En ler Bil = Ina za“ 
G$L615)= "Im . tet 5 s Pe za 

G$L 616) = "a e 5 a Bu il . Ki zum 
E$L617)= " "ist BT EETENEERET EOS ren ER EEE EEE LEEREN u” 
G$LEIB) =" m E u ne 2 augnyen 

G$L A x hr a 1°) 


G$L 628) ="DIE MAUER SIEHT AUS WIE NACH EINEM e 
6$(621)="BOMBENANGRIFF. DAS HOELZERNE STADT- " 
6$( 622) ="TOR SIEHT ARG RAMPONIERT AUS. ” 

6$( 623) ="REED MUSS WEITER..." ö 


GHELE24)-"M — rei EI TI TTS N ee 7 u 11 Bu za" 
G$(625)= "Mi ET ET Ten a a EEE u gie 
G$(626)= ” ee a" = > LTD zu” 

6$627)= "MT I ı Tı Fr RT i \ | U Bee: 1 | enge 
6$(628)= "Mi ----- a E nn DT ze 

G$( 629) "Ta 1 1111 R, 4 i u Bu Ban 7 7 u zu" 
G$L630)= "Mn 1 Ba De Du ee ee 7 7: j Bi" 
G$L631)= "WM . we Pr LU a ee TB a Be 
6$(632)= "Mi i I a 7° + ei ram 

6$( 633) => "Mi a Te Te Be zu” 

G$L 634) =" ah a LT Pe2 ! za" 

G6$( 635) =" ill, - = - ee ee LH 


G$L 636) ="EINE GROSSE GAUENE URWALDSPINNE ” 
G$( 637) ="WARTET. AUF IHR OPFER." 

6$( 638) ="COMMANDER REED VERSUCHT SICH ZU " 
6$( 639) ="RETTEN.. . 44" 
DOPEN#2,"SEQ.GR.PLX"”,W 
FORI=8T0639:PAINT#2,G$( I) :NEXT 

DELOSE#2 

END 


ee 
| BÖRSE 


Verkaufe: VC 20 Program- Verkaufe 12 Originalspiele- C16-C16-C1i6- Tausche, kaufe und verkaufe 
mierhandbuch” Kassette C 64 - 10 DM/ Pro Suche Hardware- "Unterlagen Spiele für den VC-20:.Chr- _ 
deutsche Ausgabe), VB 9,99 Spiel (Pastf,; Shamus, Fort spez. Schaltbilder sowie Da- stoph Krohn, Goethestr. 35a, 
DM. “Programme für VC 20/ Apoc. 4A). + Computerhef- tenblätter der ICs z.B. 7501 5980 Werdohl. 

Spiele, Utilities, Hardware- * te: Run, Happy Computer, etc. und speziellen Intruc-  ----—-—--_________ 
Erweiterungen” (W: Hofak- 64’er: Telematch sowie Trak-  tion-Set des 7501 bzw. Ab- Suche Grafikprg. für Epson- 
ker), VB: 9,99 DM. Jörg Güt- ball — Preis VB —, Suche weichungsliste zum 6502/ Drucker LX-90 (C-64). Ähr.- 
tel, Kölner Straße 99, 5650 Drucker (Matrix) gebr. Tel.: 6510. Uwe Peters, Tannen- lich Anltg. GX-80 Seite 27. 
Solingen 1... 0202/591987, Wuppertal. weg 9, 2351 Trappenkamp. J- Gänge (06186) 2509. 


Adventurss Planet 


planet x adventures -=-====128 


8 rem 

15 rem (p) commodore welt = 
28 rem -=munmuummnmmmumzunmnmmmmmmmm 
25 rem (c) harald beiler = 
38 rem m 
35 rem = 
48 rem version 7.8 4Bz/ascii = 
45 rem 128 pc + 1541/1571 = 
5®d rem «= umuumnuuumnmonznnmummmmmnumm 


55 senclr:color®,1:color4,1:print:p 
rint:printchr$( 14) :print"648 Grafik 
zeilen werden nachgeladen." 

68 print"Bitte etwas Geduld..." 

65 ra=68:ga=43:ba=23:wo=4:ma=1:mg=4 
'af=2:g=16:2=480*#16:c0s=236:cz=235 

78 dimg$(z),rm$(ra),dg(ra,6) ,‚ge$(ga 
),nm$( ga) ,gg(ga),ba$(ba) ,as$( 48) 

75 dopen#2,"seq.gr.plx":fori=8t0639 
:printchr$( 19) "Grafik-Zeile: ";i:in 
put#2,g$(i) :next:dclose 

88 poke241,15:color®,1:color4,1:scn 
elr:printchr$( 14) 

85 pokecs,5:pokecz,5 
98 print" "chr$( 818)" 
UF PLANET X " 
95 char1,6,10," 
.HaBe ",1 

188 char1,1,15," (C) 
-WELT/CBM-Revue 
1085 gosub1608 
118 goto288 

115 fori=1t038:printchr$( 158) chr$( 4 
S)chr$( 154) ;:fort=1t05®8:next:next:p 
rint:return 

128 ggl41)=8:gg(48)=ma:return 

125 gg( 38) =ma:dg( 34,4) =26:gg$( 23) =" 
tote riesenspinne.":return 

1308 gg( 30) =ma:dg(65,2)=49:dg(65,1)= 
64:g8$( 37)="toter saurier.":return 
135 gg( 32) =ma:dg( 68,2) =59:gg$( 39) =" 
tote urwaldspinne.":return 

148 gel 38) =ma:dg(63,2)=58:dg(63,3)=- 
57:gg$( 35)="toter tiger.":return 
145 dg(64,1)=®:dg( 64,2) =608:dg( 64,3) 
=58:dg(64,4)=59:dg(64,5)=®:dg( 64,6) 
=Ö:return 

158 char1,8,14:print 

155 fori=1to1@:printle$; :next:retur 
n 

168 sleep3:return 

165 printchr$( 019) :printtab( 1) chr$( 
117); :fori=1t0o36:printchr$( 96) ; :nex 
t:printchr$( 185) 

178 fori=1to12:printtab( I)chr$( 125) 
tab( 38) chr$( 125) :next 

175 printtab( 1) chr$( 186) ;:fori=1to3 
6:printchr$( 96) ; :next:printchr$( 107 
):return 


VERSCHOLLEN A 
Adventure..1986 by. 


1986 COMMODORE 
"‚4:print 


x - 1 — 


188 Fll1)=-1:dg( 16, 1)=19:dgl 16,2) =1 
S:return 

185 fl(2)=-1:dg(25,1)=31:dg(25,2)=2 
2:g0t0698 

198 dg(64,3)=58:dg(64,4)=59:gg( 36) = 
ö:return 

195 gg(l42)=ma:dg(25,1)=31:return 
200 rem FHHHHEHEEHeHr antworten * 
205 as$( 1)="okay." 

218 as$(2)="hier ist nichts besonde 
res." 

215 
wer. 
2208 as$(4)="das 
ich!" 

225 as$(5)="und 
stellen ?" 

230 as$(6)="Das 
235 as$( 7) ="auf 
s nicht!" 


as$(3)="geht nicht, viel zu sch 
ist voellig unmoegl 
wie soll man das an 


war Pech!!!" 
diese weise geht da 


248 as$(8)="kein weg in diese richt 
ung " 

245 as$(9)="das ist totaler unsinn! 
258 as$( 18)="hier ist niemand...” 
255 as$( 11)="das funktioniert so ni 
cht."” 

268 as$( 12)="in ordnung. und weiter 

Er 


as$( 13)="diesen befehl kenne ic 

h nicht.” 

278 as$( 14)="dieses hauptwort kenne 
ich nicht." 

275 as$( 15)="bist du bei der muella 

bfuhr?"” 

288 as$( 16)="er ist je noch gar nic 
ht dort!" 

285 as$( 17)="das tor ist geschlosse 
N. 

298 as$( 18)="steht es sich gut dara 

üf 2* 

295 as$( 19)="in welche richtung ?" 
380 as$(28)="wer rastet,der rostet. 


385 as$(21)="ich wuerde alles unter 
suchen. ." 

318 as$(22)="die sonne geht im west 
en unter.." 

315 as$(23)="hoehlen bergen geheimn 
isse..." . 

328 as$(24)="felswaende kann man um 
gehen." 

325 as$(25)="ein umweg fuehrt selte 
n zum ziel." 

338 as$(26) ="umkehr beizeiten verhi 
ndert pleiten.." 

335 as$(27)="die geraden wege sind 
die schnellsten." 
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Adventures 


348 as$(28)="seefahrer kennen den p 
olarstern." 

345 as$(29)=-"alles,was zu ist, 
mal offen." 

358 as$( 38)="hinlangen, zupacken!" 
355 as$(31)="immer der nase nach... 


368 as$( 32)="nimm, was du siehst." 
365 as$( 33)="oft ist es oben heller 
als unten." 

378 as$( 34)="jede mauer hat einen d 
urchschlupf1" 

375 as$(35)="vorwaerts ist mutig, r 
ueckwaerts klug." 

388 as$(36)="der kluge blickt in je 
de richtung.." 

385 as$( 39)="bisher war es glueck.a 
ber jetzt...” 

398 as$(38)="das gras ist gruener d 
ort." 

395 as$(39)="ist das nicht ein alte 
r beatles-song?" 

488 as$(48)="aus breit wird manchma 
l schmal." 

485 as$(41)="im osten geht die sonn 
e auf..." 

418 as$l42)="die zeit draengt.es wi 
rd schon nacht.." 

415 as$(43)="benutze deinen verstan 
d und die waffen." 

420 as$(44)="im sueden ist es heiss 
‚aber sicherer." 

425 as$(45)="niemand bremst seinen 
vorwaertsdrang." 

438 as$(46)="ein seil dient zum kle 
ttern." 

435 as$(47)="ist dein verstand eing 
erostet ?" 

440 as$(48)="nur ein toter saurier 
ist harmlos..." 

445 forf=1toba:readba$( f) :ba$( f)=1e 
ft$(ba$(f) ‚wo) :next 

458 Forgg=itoga: readgg$( gg) ‚,nm$( gg) 
‚gglgg) :nm$(gg)=- left$(nm$(gg), wo) :n 
ext 

455 forj=iItora:readrm$( j) :fork=1t06 
:readdg( j,k) :next:next 

468 fori=1t0o6:readrc$(i) :next 

465 print:printchr$( 14) ;:input"Spie 
lanleitung (j/n)";a$ „ 

478 ifa$="j"thengosub5985 


war 


475 print:print:printchr$( 818) "A"ch 


r$( 146) "ltes Spiel laden oder" 

488 print:printchr$( 818) "N"chr$( 146 
)"eubeginn ?" 

485 geta$ 

490 ifa$="a"thenan$=ba$( 18) :printch 
r$( 147) chr$( 142) :goto948 


48 


Planet x _ = rent 


495 
so» 


ifa$="n"then675 

g0oto485 

S85 printchr$( 149) :gosub115 

518 print"Eintrag Commander Phil Re 

ed vom Raum-" 

515 print"schiff >STARDUST I< in da 

s Bordlogbuch:":gosub115 

528 print"Trotz intensivster Bemueh 

ungen ist die" 

525 print"Reparatur des defekten Bo 

rd-Steuerungs-" 

30 print"Computers nicht gelungen. 
:gosub115 

535 Print Wurde Notlande-Aggregat z 

uenden....... 

548 print"Vorgesehene 
unbekanntem " 

545 print"Planeten, Koordinatenpunk 

t X/36-C0/45.":gosub115 

5S5® print"Entfernung zu Raumschiff 

exakt 98567.6" 

555 print"Raummeilen. 

olgt in genau” 

568 PER ei 48,03.45 

:goaub115 

565 print"Funkkontakte blieben unbe 

antwortet, es" 

578 print"muss davon ausgegangen we 

rden, dass " 

575 print"der erdaehnliche Planet u 

nbewohnt ist." 

588 print"Aussichten einer moeglich 

en Behebung " 

585 Printdes Schadens sind sehr ge 

TINgs 0 fan :gosub115 

598 print:printprintchr$( 129) "Folg 

ende Befehle werde ich verwenden:": 

gosub115 

595 print"nimm,untersuche ‚betrete,k 

lettere,gehe, " 

890 print"befreie, rette,repariere,h 

ilf,benutze, 

605 print"wirf bekaempfe, sprich, ver 

liere,raeume,":gosub115 

618 print"Mit SAVE wird der momenta 

ne Spielstand-" 

615 print"auf Diskette abgespeicher 

t " :gosub115 

628 print"Mit LOAD unter Angabe des 
richtigen" 

625 print"File-Namens wieder in den 
Computer" . 

638 print"geladen und das Spiel an 

dieser Stelle" 

635 print"fortgesetzt.":gosub115 

648 print"Falls Sie einmal nicht re 

cht weiter" 

645 print"wissen, bekommen Sie Tips 


Landung auf 


Aufschlag erf 


mm tk 
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mit HELP.” 

658 print"Die Beschreibung der Bild 
er kann jeder-" 

655 print"mit TEXT aufs neue gelese 
n werden.":gosub115 

668 print"Der Befehl LIST gibt Ihne 


n Veberblick" 
665 print"ueber die mitgefuehrten G 


egenstaende.":gosub115 
678 return 
675 rem #HHHHRHEHHHEHHe driver *# 


688 printchr$( 147) chr$( 9) chr$( 142) c 


RE RDENTR, ...."ırem 39 mal space 

rem ##ztitatznitzttt ab hier screen *# 
sleep2:ifgr<>mathengosub31088 
gr=ma:gosub169:gosub 158 
pokecs,®:pokecz, 15 

print" "rm$(ma) 

gd=8 

fori=itoga:ifgg(i) <>mathen?35 
725 ifpos(B) +len(gg$(i))+2<39thenpr 
int" "gge$li);",";:gd=-1:g0t0735 

738 ifpos(®)+len(gg$(i))+2>=39thenp 
rint:goto?725 

735 next:ifgd=döthenprint" nichts be 
sonderes."; 

748 printchr$( 145) chr$( 145) 

745 pokecz, 19:re$="!" h 

758 print" richtung:"; 

755 ifdg(ma, 1)=Banddg(ma,2)=Banddg( 
ma,3)=Banddg(ma,4)=Qanddg(ma,5)=Bth 
engosub?65 

768 g0t0778 

765 re$=" momentan keine.. 
778 fori=1t06 

775 ifdg(lma,i)=8then?9®8 


.":ıreturn 


788 ifpos(8)=14thenprintrc$(i); :got 
0798 

785 ifpos(®)+len(rc$(i))<37thenprin 
t" "s;ro$(i)" ";:g0t0798 

798 next 


795 printre$;". " 

808 rem #*#* negative mitteilungen * 
805 x1$="Er ist in der Wueste verdu 
rstet." 

818 x2$="Die 
issen." 

815 x3$="Die 
tet." 

828 x4$="Der 
cht.” . 

825 x5$="Der 
mpelt." 

838 x6$="Die 
efressen.” 
835 ifma=2thenng$="Er ist in der Wu 


Giftspinne hat ihn geb 
Wilden haben ihn getoe 
Tiger hat ihn zerfleis 
Saurier hat ihn zertra 


Riesenspinne hat ihn g 


x - 3 — 


este verdurstet...":goto1585 
848 ifma=34andgg( 16) <>-ithenng$=x2$ 


845 
858 
855 
860 
865 
878 
875 
8808 
885 
898 
895 
998 
985 
918 
915 
9208 


ifma=34andgg( 29) <>-1thenng$=x2$ 
ifma=34andgg( 38) <>-Ithenng$=x2$ 
ifma=-S54andgg( 16) <>-ithenng$=x3$ 
ifma=54andgg( 29) <>-1thenng$=x3$ 
ifma=-S54andgg( 38) <>-1ithenng$=x3$ 
ifma=-58andgg( 16) <>-ithenng$=x3$ 
ifma=58andgg( 29) <>-ithenng$=x3$ 
ifma=-58andgg( 38) <>-1 thenng$=x3$ 
ifma=63andgg( 16) <>-ithenng$=x4$ 
ifma=-63andgg( 29) <>-1thenng$=x4$ 
ifma=-63andgg( 38) <>-1thenng$=x4$ 
ifma=65andgg( 16) <>-ithenng$=x5$ 
ifma=65andgg( 29) <>-ithenng$=x5$ 
ifma=65andgg( 38) <>-ithenng$=x5$ 
ifma=68andgg( 16) <>-ithenng$=x6$ 
ifma=-68andgg( 29) <>-ithenng$=x6$ 
925 ifma=68andgg( 38) <>-1ithenng$=x6$ 
938 ifma=39thenng$="Er ist in die S 
chlucht gestuerzt...":goto1585 

935 char1,2,28:print: poke288,8:pri 
nttab( 1)">3"; :poke21,64:inputan$:po 
ke21,8:print 

948 iflen( an$) >2then990 

945 ifan$=rc$( 1) anddg(ma, 1) <>dthenm 
a=dg(ma,1) :printas$( 1) :g0ot0o69® 

958 ifan$=rc$(2)anddg(ma,2) <>®thenm 
a=dg(ma,2) :printas$( 1) :goto6908 

955 ifan$=rc$( 3) anddg(ma,3) <>dthenm 
a=dg(ma,3) :printas$( 1) :g0t0698 

968 ifan$=rc$(4)anddg(ma,4) <>dthenm 
a=dg(ma,4) :printas$( 1) :g0t0698 

965 ifan$=rc$(5)anddg(ma,5)<>dthenm 
a=dg(ma,5) :printas$( 1) :goto698 

978 ifan$=rc$(6)anddg(ma,6)<>Bthenm 
a=dg(ma,6) :printas$( 1) :g0t0698 

975 iflen(an$) <3thenprintas$( 8) :got 
0698 

988 iflen(an$) >6then 1475 

985 rem Hrskararakatstaratatstitettt ]iste # 
998 ifleft$(an$,4)<>"list"then1925 
995 gosub158:char1,8,14:print 

1888 print"er hat folgendes bei sic 


fori=1toga 
ifgg(li)=--ithenprintgg$li);" "” 
next:goto698 

rem HH tete save *# 
ifleft$(an$,4)<>"save"then1185 
gosub 158 

1835 pokecs,®:pokecz, 15:print" spie 
lIstand speichern" 

1848 print:input"file-name";an$ 
1845 iflen(an$) >16then 19830 

1858 print:printan$" wird abgespeic 
hert.”; 

1855 open2,8,2,"$0:"+an$+",s,w" 


49 


Adventures Planet 


18568 print#2,ma 
1865 
fori=1toga:print#2,gg(i) :next:print 


a. 
. 


’ 
1878 fori=iItora:forj=1t0o6:print#2,d 


g(li,J) :next:next:print"."; 
1875 fori=1toaf:print#2,fl(i) :next: 
print".";:close2 


10880 gosub1885:g0t0698 

1885 rem ##imminieieiiitt disk-fehler * 
1898 ifa<>®thenprintchr$( 818) "disk- 
error:"chr$( 146) ;ds$:sleep3:g0t0698 
1895 return j : 
1188 rem HHmrinkieiiitsttee ]oad # 
1105 ifleft$(an$,4) <>"load"then1165 
1118 gosub158 

1115 pokecs,®:pokecz,15:print" alte 
s spiel laden." 

1128 print:input"file-name";mf$ 
1125 iflen(mf$) >16then1118 

1138 printmf$" wird geladen."; 

1135 open2,8,2,mf$+",s,r":input#2,m 
ä:print"."; 

1148 fori=1toga:input#2,gg(li) :next: 
print",."; 

1145 fori=1tora:forj=1t06:input#2,d 
gli,j) :next:next:print"”."; 

1158 fori=1toaf:input#2,fl(i):next: 
print".";:close2 

1155 gosub 1985 

1168 ifan$=ba$( 18) then675 

1165 ifleft$(an$,4)<>"help"then 1330 
1178 ifma=ithenprintas$( 28) :g0t0699 
1175 ifma=3orma=4thenprintas$(21):g 
0t0698 

1188 ifma=5thenprint"hoch hinaus is 
t nicht immer gut..":goto698 

1188 ifma=6orma=9orma=13thenprintas 
$( 22) :goto698 

1198 ifma=?thenprintas$( 23) :goto698 
1195 ifma=80orma=450rma=51thenprinta 
s$( 24) :g0t0698 

12088 ifma=18thenprintas$( 25) :g0t069 
[%) 

1285 ifma=11orma=28orma=38orma=56or 
ma=57orma=61thenprintas$( 26) :g0t069 
(2) 

1218 ifma=12orma=22orma=23orma=28or 
ma=29thenprintas$( 27) :g0t0690 

1215 ifma=150orma=42thenprintas$( 28) 
:g0t0698 

1228 ifma=16orma=25thenprintas$( 29) 
:g0t0699 

1225 ifma=18thenprintas$( 38) :g0t069 
17) 

1238 ifma=19orma=35orma=46thenprint 
as$( 31) :g0t0698 

1235 ifma=21orma=24orma=44thenprint 
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as$( 32) :g0t0698 

1248 ifma=26orma=31thenprintas$( 33) 
:g0t0698 j 

1245 ifma=27orma=32thenprintas$t( 34) 
:g0t0698 

1258 ifma=38orma=33thenprintas$( 35) 
:g0t0698 

1255 ifma=36thenprintas$( 36) :got069 
(7) 

1268 ifma=37thenprintas$( 37) :goto69 
[%) 

1265 ifma=48thenprintas$( 38) :g0t069 
[%) 

1278 ifma=41orma=480rma=5ß8thenprint 
as$( 39) :g0t0698 

1275 ifma=43orma=49thenprintas$( 40) 
:g0t0698 

1288 ifma=49orma=52orma=68thenprint 
as$( 41) :g0t0698 

1285 ifma=-S53thenprintas$( 42) :g0t069 
(%) 

1298 ifma=-S8andgg( 29) =-1orma=58andg 
g( 38) =-1orma=58andgg( 16) =-ithenprin 
tas$( 43) :goto698 

1295 ifma=590orma=62orma=660orma=67th 
enprintas$( 44) :g0t0698 

13088 ifma=-55thenprintas$( 45) :g0t069 
8 

13085 ifma=64andgg( 14) <>-ithenprinta 
s$( 7) :g0t0698 

1318 ifma=64andgg( 14) <>dthenprintas 
$( 46) :g0t0698 

1315 ifma=64andgg( 38) <>®thenprintas 
$(47) :g0t0698 

1328 ifma=6S5andgg( 14) <>Borma=6Sandg 
g( 32) <>Othenprintas$( 48) :g0t0698 
1325 print"ist das nicht ein alter 
beatles-song?":got0698 

1338 ifleft$(lan$,4)<>"verb"then1365 
1335 gosub1598:char1,8,15:print 

1348 print"nimm,untersuche,betrete, 
klettere,gehe" 

1345 print"befreie,rette,repariere, 
hilf,sprich" 

1358 print"bekaempfe,verliere,raeum 
e,save,load" 

1355 print"liste,text,help,verben,e 
nde.":g0t0698 

1368 g0ot0698 

1365 ifleft$(an$,4) <>"text"then1415 
1378 gosub158:char1,8,14:print 

1375 ifma>23andma<47thenmb=ma-23:g0 
to1395 . 

1388 ifma>=49andma<=68thenmc=ma-47: 
g0oto1485 

1385 onmagosub3155,3175,3195,3195,3 
215,3175,3235,3195,3175,3255,3275,3 
295,3175,3295,3315,3335, 3295, 3355, 3 
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375,3395,3415,3435,3295 

1398 goto698 

1395 onmbgosub3295, 3915, 3455,3475,3 
4935,33165,3295,3515,3475,3535,3555,3 
575,3295,3595,3198,3615, 3635, 3655. 3 
675,3695,3195,3195,3675,3175 


1480 g0t0698 
1485 onmcgosub3715,3695,3775,3195,3 


175,3735,3955,3795,3175,3715,3815,3 
835, 38558, 3178,3178,3715, 3878, 3898. 3 
175,3175,3938 

1410 goto698 
1415 ifleft$(an$,4) <>"ende"then14798 
1428 printchr$( 147) :print"das naech 
stemal klappt es " 

1425 print:print"bestimmt noch bess 
er.“ 

1438 print:print:print:print:print: 
printchr$( 818) "a”"chr$( 146) "Ites spi 
el laden " 

1435 print: ne N Se chr$( 14 
6)"eubeginn " 

1448 print: printchrg( 818) "s' 'chr$( 14 
6)"pielende "” 

1445 getan$ 

14598 ifan$=" a"thenan$= ba$( 18) :goto9 
48 

1455 ifan$="n"thenrestore:ma=1:prin 
tchr$( 147) chr$( 14) :goto445 


1468 ifan$="s"thenend- 

1465 goto1445 j 

14780 rem Priest proof * 
1475 iIn=1len(an$) 

1488 foral=1toln:te$=mid$( an$,al,i) 
1485 ifte$<>" "thennext 

1498 av$=left$(an$,wo) :rl=In-al 
1495 ifrl<®theni585 

1588 eg$=right$(anß, rl): eg$=left$(e 
g$,wo) 

15085 forbn=1toba:ifav$=ba$(bn) then! 
528 

1518 next 

1515 printas$( 13) :goto698 

1528 forn=1toga: ifeg$=nm$(n)then153 
5 

1525 next 

1538 printas$( 14) :g0t0698 

1535 onbngoto1555, 1815, 1998,2109,22 


20,23498,2375,2410,2455,2490,2580,26 
908,2945 

1540 ifbn=14then2925 

1545 ifbn=15then2955 

1558 ifbn=16then29808 

1555 gb=B 

1568 fFori=itoga 

1565 ifggli)=-ithengb=gb+1 

1578 ifgb=mgthenprint"soviel kann e 
r nicht tragen.":goto698 


Planet X ER ae 


1575 
1588 
1585 


next 

goto1655 

rem ##3iititititit ende negativ * 
1598 fort=1t03988:next 

1595 printchr$( 147) ;chr$( 158) ;chr$( 
14) :color®,6:color4,6 

1688 printas$(6) :print:printng$ 
1685 print:print:print"Auf der Erde 
wartet man vergeblich " 

1618 print"auf die Rueckkehr des Co 
mmander Reed..." 

1615 print:print:print:print:printc 
hr$(B818)"N"chr$( 146) "eues Spiel beg 
innen " 

1628 print:printchr$( 818) "A"chr$( 14 
6)"ltes Spiel laden " 

1625 print:printchr$( 818) "S"chr$( 14 
6) "pielende" 

1638 geta$ 

1635 ifa$="n"thenrestore:ma=1:color 
8,1:color4,1:poke241,15:printchr$( 

47) ;chr$( 142) :goto445 N 
1648 ifa$="a"thenan$=ba$( 18) :color® 
‚1:color4,1:poke249,15:printchr$( 14 
7);chr$( 142) :goto948 * 

1645 ifa$="s"thenend 

1658 goto1638 

1655 rem HHatstatafstähstsrahsesrsee nimm * 
1668 ifgg(n)=maandgg(n) <>-1ithen 1675 
1665 ifgg(n)<>maandgg(n)=-ithen1818 
1678 ifgg(ln)<>maandgg(n)=-ithen18108 
1675 
ifn=iorn=5thenprintas$( 3) :g0ot0698 
1688 ifn=2thenprintas$(4) :g0t0698 
1685 ifn=3orn=4orn=6orn=?orn=8thenp 
rintas$(9) :g0oto698 

1698 ifn=9orn=1iorn=14orn=i6thenpri 
ntas$( 1) :gg(n)=-1:g0t0698 

1695 ifn=18thenprintas$(3) :g0t0698 
1708 ifn=13thenprintas$( 15) :gg(n)=- 
1:g0t0698 

1785 ifn=15thenprintas$(5) :g0oto698 
1718 ifn=18orn=19thenprintas$(4) :go 
t0698 

1715 ifn=28thenprint"hasch mich,ich 
bin der fruehling!":g0t0698 

1728 ifn=2l1orn=22thenprintas$(9) :go 
t0698 

1725 ifn=24thenprint"na klar,atme t 
ief durch!!":goto69B. 

1738 ifn=25thenprintas$( 1)"mir wuer 
de es grausen...":gg(n)=-1:g0t0698 
1735 ifn=26andgg( 38) <>-ithenprint"e 
r muss ausgebaut werden...":goto698 
1748 ifn=26andgg( 38) =-ithenprintas$ 
(5) :goto698 

1745 ifn=297thenprintas$(5) :goto698 
1758 ifn=28thenprintas$(3) :g0oto698 
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1755 ifn=29orn=38thenprintas$( 1) :gg 
(n)=-1:g0t0698 

1768 ifn=3lorn=32thenprintas$( 9) :go 
t0698 

1765 ifn=33thenprintas$( 12) :gg(n)=- 
1:g0t0698 


1778 ifn=34thenprint"dann pass mal 
auf,was die anstellen...":g0t069®8 


1775 ifn=36thenprint"hilf ihm liebe 

r!!1l":goto698 

1788 ifn=38thenprintas$( 1) :gg( 38) =- 
1:g0t0698 

1785 ifn=48thenprintas$( 1) :gg(.48) =- 
1:g0t0698 

1798 ifn=41thenprintas$( 1) :gg( 41) =- 
1:g0t0698 

1795 ifn=42thenprintas$( 1) :gg( 42) =- 
1:g0t0698 

1888 ifn=43thenprintas$(. 1) :gg( 43) =- 
1:g0t0698 

1885 print"das laesst sich nicht ne 

hmen.":g0t0698 

1818 print"das hast du doch schon!! 
I":g0t0698 

1815 rem Htaiesteieaaeatstat untersuche * 
1828 ifgg(n)<>maandgg(n) <>-1then198 

[%) 

1825 ifgg(n)=maorgg(n)<>-1then1985 
1838 ifn=1thenprintas$( 2) :g0t0698 
1835 ifn=3orn=4thenprint"dazu muss 

man erst drinnen sein.":goto69® 
1848 ifn=Sthenprint"vielleicht gut 

fuer brennholz...":g0ot0698 

1845 ifn=6thenprint"sehr niedrig un 

d sehr dunkel.":goto698 

1858 ifn=?thenprint"staubig und vie 
le schlagloecher.":g0t0698 

1855 ifn=8thenprintas$( 2) :g0t069®8 
1868 ifn=9andgg(n)=-Ithenprint"ein 

schwarzes kaestchen 

darin":gg(41)=ma:goto698 

1865 ifn=1@thenprint"stahlhart und 
rostig.":g0t0698 

1878 ifn=11andgg(n)=-ithenprint"ein 
teil eines raumfahreranzuges.":got 

0698 i 
1895 ifn=13thenprint"ein alter eise 

nschluessel liegt dort.":gg(42)=ma: 

g0t0698 

1888 ifn=14andgg(n)=-ithenprint"es 
ist lang und dick.":g0t0698 

1885 ifn=15thenprint"vorsicht,%ehr 
baufaellig!!":g0t0698 

1898 ifn=16andgg(n)=-iIthenprint"blu 
t klebt noch dran...":g0t0698 

1895 ifn=19thenprint"ziemlich morsc 
h und baufaellig...":g0t0698 

1988 ifn=18thenprint"ebenfalls sehr 
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repsraturbeduerftig.":g0t0698 

1985 ifn=19thenprintas$( 7) :g0oto699 
1918 ifn=28thenprint"licht kommt vo 
n draussen, oder?":got069® 

1915 ifn=21thenprint"vorsicht, sehr 
steil.":goto698 

1928 ifn=24thenprintas$( 9) :g0t0698 
1925 ifn=25andgg(n)=-ithenprint"es 
ist das eines menschen...":g0t0698 
1938 ifn=26andgg(n)=-ithenprint"er 


ist voellig intakt!!":g0t0698 

1935 ifn=27thenprint"wie auf der er 
de.":g0t0690 

1948 ifn=28thenprint"auf dem vorder 
sitz liegt etwas...":g0t0698 

1945 ifn=29andgg(n)=-1Ithenprint"sie 


funktioniert noch !":g0t0698 

1958 ifn=38andgg(n)=-iIthenprint"wie 
aus der steinzeit.":goto698 

1955 ifn=31orn=32thenprintas$(9) :go 

t0698 

1968 ifn=33thenprint"wacklige gesch 

ichte.":g0t0698 

1965 ifn=34thenprint"verteidige dic 

h lieber!":goto698 

1978 ifn=36andgg( 1) =-Ithenprint"du 

bist doch kein doktor.":goto698 

1975 ifn=4landgg(n)=-1Ithenprint"ein 
elektronischer tueroeffner.":gosub 

128:g0t0698 

1988 print"hier ist nichts zum unte 

rsuchen.":goto698 

1985 printas$(7) :g0oto698 

19998 rem HiHriHiiniieinitttt betrete *# 

1995 ifgg(n)<>maandgg(n)<>-ithenpri 

ntas$( 11) :goto698 

2888 ifn=ithenprint"daher kommt er 

doch gerade...":g0t0698 

2885 ifn=3andma=3orn=4andma=4thenpr 

intas$( 16) :goto698 

2818 ifn=3andma=?thenprint"man muss 
sich ziemlich buecken...":g0t0698 

2815 ifn=5thenprint"klettern waere 

besser...":goto698 

2828 ifn=8thenprint"unheimlich wird 
es hier ..":g0t0698 

2025 ifn=1B8andnotfl( 1)thenprintasßg( 

17) :g0t0698 

20838 ifn=19andfl(2)=Bthenprintasßft I 

7) :g0t0698 

2835 ifn=18andfl( 1)thenprint"nur zu 
bitte eintreten.":g0t0698 

20848 ifn=19andfl(2)thenprint"nur zu 
bitte eintreten.":g0t0698 

2045 ifn=11orn=29orn=3®thenprintas$ 

( 18) :g0t0698 

2058 ifn=13thenprintas$( 15) :g0t0698 

e855 ifn=25thenprint"knirschend zer 
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Dbersten die knochen."”:goto69®8 

2868 {fn=2?thenpränt'hier ist es wi 
e im urlaub.":goto698 

2865 ifn=28thenprint"ist nicht zu o 
effnen...":goto698 

2878 ifn=33thenprint"sehr vorsichti 


E er schaukelt!":g0t06908 
875 ifn=36thenprint"das wuerde ich 


lieber nicht tun. :g0t0698 
2988 ifn=6orn-31thenprintas$( 1) :got 
0690 
2885 ifn=?orn=15orn=18orn=21thenpri 
ntas$( 12) :goto69®8 
2898 ifn=9orn=i9orn=28orn=240orn=260 
rn=32orn=34thenprintas$(9) :g0t0698 
28095 printas$( 11) :g0ot0698 
2188 rem #Httteteeieieiseietttt kKlettere *# 
2185 ifgg(n)<>maandgg(n)=-1ithen2195 
2118 ifn=1thenprint"geht nicht, viel 
zu glatt.":g0t0698 
2115 ifn=3andma=3orn=4andma=s4thenpr 
intas$( 16) :goto698 
2128 ifn=5thenprint"der ueberblick 
ist so viel besser.":g0t0698 
2125 ifn=3andma=?thenprint"”er muss 
sich buecken, so niedrig ist es.":g 
0ot0698 
2138 ifn=1®thenprint"die waende bie 
ten keinen halt...":goto698 
2135 ifn=13thenprint"na ja, wenn es 
spass macht.":goto69®8 
2148 ifn=19thenprint"unnoetig, sie 
liegt sowieso sehr tief.":goto69® 
2145 ifn=29thenprint"aha, ein begei 
sterter bergsteiger...":goto698 
2158 ifn=28thenprint"ein schraubens 
chluessel auf dem sitz.":gg( 38) =ma: 


g0to698 
2155 £eimööthenpränttdie angelegenh 
eit ist sehr wackelig!!":goto698 


2168 ifn=6orn=1Sorn=18orn=2iorn=31t 
henprintas$( 1) :g0t0698 

2165 ifn=14thenprintas$(5) :g0ot0o698 

2178 ifn=14andma=64thenprintas$( 1): 
g0t0698 

2175 ifn=28thenprintas$( 12) :g0t0698 
2188 ifn=?7orn=8orn=Sorn=11orn=16orn 
=2ß8orn=24orn=25o0orn=26thenprintas$(9 
) :goto698 

2185 ifn=290rn=3®8orn=31orn=320rn=34 
orn=36thenprintas$(9) :goto698 

2198 ifn=43andgg({ n)=mathenprintas$( 
1) :g0t0698 

2195 printas$( 11) :g0oto698 

2200 rem HAWHHRRB gehe * 

2205 ifgg(n)<>maandgg( n) =-1then2335 
2218 


doch gerade!":gpto698 


ifn=ithenprint"daher kommt er 
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2215 ifn=3andma=3orn=4andma=4thenpr 
intas$( 1)as$( 19) :goto698 

2228 ifn»Sthenprint"weit ist es ja 
nicht. :g0t0698 

2225 ifn=3andma=?thenprint"ein dunk 
les,unheimliches loch. :g0t0698 
2238 ifn=7thenprint"das wandern ist 
des muellers Jlust...":got0698 

2235 ifn=8thenprint"”das wird schon 

mehr ein stolpern.":got0698 

2248 ifn=9orn=14orn=16thenprint"er 
soll es doch aufheben!":g0t0698 
2245 ifn=1B8andfl( 1)=@®thenprintasff 1 

7) :g0t0698 

2258 ifn=1B8andfl( 1)=-Ithenprint"nur 
hereinspaziert!":g0t0698 

2255 ifn=13thenprint"ist den das wi 
rklich so schoen ?":g0t0698 

2268 ifn=15thenprint"steil fuehrt s 
le hinunter.":g0t0698 

2265 ifn=19andfl(2)=B®thenprintas$( 1 

7) :g0t0698 

2278 ifn=17andfl(2)=-iIthenprint"mal 
sehen, wie es jetzt weitergeht.":g 

0t0698 

2295 ifn=18thenprint"es hat sich do 

rt oben etwas bewegt...":g0t0698 

2288 ifn=-28thenprintas$( 1) as$( 19) :g 

0t0698 

2285 ifn=2ithenprint"1008 stufen si 
nd das mindestens...":goto69®8 

2298 ifn=24thenprint"das hoehlenlab 

yrinth ist zu ende !":g0t0698 

2295 ifn=19orn=250rn=280rn=290rn=31 

orn=33thenprintas$( 12) :g0t0698 

2388 ifn=26thenprintas$( 12) :g0t0698 

2305 ifn=28thenprintas$( 12) :g0t069® 

2318 ifn=29thenprint"das war eine s 
ehr gute idee.":g0t0698 

2315 ifn=e38thenprint"ich wuerde ihn 
aufheben.":goto698 

2328 ifn=32thenprintas$( 9) :goto698 
2325 ifn=34thenprint"friedlich sehe 
n die aber nicht aus...":goto698 
2338 ifn=36thenprint"die hilferufe 

werden immer leiser...":g0t0698 
2335 printas$( 11) :goto6982 

2348 rem Hrn befreie * 
2345 ifn=36andgg( 14) =-ithenprintas$ 
(5) :g0oto698 

2358 ifn=36andgg(43)=-ithenprintas$ 
(5) :goto69®8 

2355 ifn=36andgg( 14) =mathenprint"so 
klappt das schon besser...":gosub! 
99:g0t0698 

2368 ifn=36andgg( 43) =mathenprint"ei 
n guter einfall...":gosub190:g0t069 
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2365 ifn=34thenprint"”die sind schon 
so frei genug...":goto69® 

2378 printas$(?) :goto698 

23795 rem HHRRRRBRRRRERRRENN pette # 


2388 ifn=34thenprint"er soll sich 1 


ieber selber retten.":goto690 
2385 a ADOBE 19 SF 16lanpFint au 
hast doch ein hilfsmittel..":goto6 


98 

2398 ifn=36andgg( 43) =-Ithenprint"gu 
t. und wie ?":goto698 

2395 ifn=36andgg( 14) =mathenprintas$ 
(1) :gosub190:gg(n)=9:g0t0690 . 

2408 ifn=36andgg( 43) =mathenprintas$ 
(1) :gosub198:gg(n)=9:g0t0698 

2485 printas$( 7) :goto698 

2418 rem Fressen repariere * 
2415 

ifgg(n) <>maandgg(n) <>-1then2452 
2428 ifn=1landgg( 26) <>-ithenprint"oh 
ne steuerungscomputer?":g0t0698 
2425 ifn=1landgg( 26) =-ithenprint"so, 
das wars.start in richtung erde!!!" 
:g0t03848 

2438 ifn=9thenprint"dieses zerbeult 
e,verrostete ding?":g0t069®8 

2435 ifn=26thenprint"der funktionie 
rt einwandfrei!":goto698 

2448 ifn=28thenprint"ohne werkzeug 
unmoeglich...":g0t0698 

2445 ifn=29thenprint"funktioniert e 
inwandfrei!l":g0t069D 

2458 printas$( 11) :g0ot0o698 

2455 rem #r3ieaeseseafarsestarafstett HILF # 
2468 ifn=34thenprint"sie fletschen 
die zaehne....":g0t0698 

2465 ifn=36andgg( 14) =-ithenprint"ho 
echste zeit,dass etwas geschieht!"”: 
g0t0698 

2478 ifn=36andgg( 43) =-ithenprint"na 
endlich!":goto698 

2475 ifn=36andgg( 14) =mathenprint"je 
tzt klappt es...":gosub199:goto69® 
2488 ifn=36andgg( 43) =mathenprintas$ 
(1) :gosub199:g0t0698 


2485 printas$( 11) :goto698 

2498 rem #HrHttereetetteneet benutze *# 
2495 ifgg(ln)<>maandgg(n) <>-1then257 
5 

2588 ifn=3orn=4thenprintasf( 16) :got 
06908 fe 

2585 ifn=Sthenprintas$(5) :goto698 
2518 ifn=3andma=?thenprint"auf ins 
abenteuer !":g0t0698 


2515 ifn=?orn=8thenprintas$l 1)Jas$l 1 


9) 
2528 ifn=9thenprint"sein kopf ist v 
iel zu gross dafuer!":goto698 
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2525 ifn=14andma=64thenprint"na end 
lich...":gg(36)=®:g0t0698 

2538 ifn=43andma=64thenprintas$( 1): 
g2( 36) -B:gosub145:g0t0698 

2535 ifn=38thenprintas$( 1) "ausbau h 
at geklappt.":gg(26)=-1:g0t0698 
2548 ifn=-38andma=34orn=29andma=34th' 
enprintas$(5) :goto698 

2545 ifn=38andma=680rn=29andma=68th 
enprintas$(5) :g0ot0o698 

2558 ifn=3®8andma=650orn=29andma=65th 
enprintas$(5) :goto698 

2555 ifn=38andma=63orn=29andma=63th 
enprintas$(5) :g0ot0698 

2568 ifn=48andma=16thenprint"das to 
r oeffnet sich.":gosub189:g0t0698 
2565 ifn=4Bandma=25thenprintas$(?): 
g0oto698 

2578 ifn=42andma=25thenprint"das to 
r oeffnet sich.":gosub195:g0t0698 
2575 printas$( 1)as$( 11) :g0t0698 
25880 rem HRrHiHHiiniiisieseeet Wirf % 
2585 ifgg(n)<>maandgg(n)<>-1orgg(n) 
=maandgg(n)<>-1then2685 

2598 ifn=1orn=5thenprintas$( 3) :goto 
6908 ” 

2595 ifn=9thenprint"waere vielleich 
t gut gegen steinschlag.":gg(9)=ma: 
g0oto698 

26088 ifn=iithenprint"taugt nicht ma 
l als taschentuch.":gg( 11) =ma:goto6 
99 

2605 ifn=13thenprint"endlich eine v 
ernuenftige aktion!":gg( 13)=ma:goto 
698 

2618 ifn=-14thenprintas$( 1) :gg( 14) =m 
a:g0t0698 

2615 ifn=16thenprint"das wird ihm n 
ochmal leidtun!":gg( 16) =ma:goto69®8 
2628 ifn=25thenprint"ich. haette es 
erst gar nicht genommen.":gg( 16) =ma 
:g0t0698 

2625 ifn=26thenprint"um dies ding d 
reht sich doch das ganze!":gg( 26) =m 
a:g0t0690 ; 

2638 ifn=29andma<>34thenprint"na gu 
t.":gg(29) =ma:goto698 

2635 ifn=38andma=34thenprint"die sp 
inne ist tot!":gosub125:g0t0698 
2648 ifn=38andma=65thenprint"der sa 
urier ist tot.":gosub139:g0t0698 
2645 ifn=380andma=-68thenprint"das un 
tier ist tot.":gosub135:g0t0698 
2658 ifn=38andma=63thenprint"der ti 
ger ist tot.":gosub148:g0t0690 

2655 ifn=36thenprint"voellig unvers 
taendliche reaktion.":gg( 36) =ma:got 
0698 
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2668 ifn=38thenprintas$( 1) :gg( 38) =m 
a:g0t0690 
2665 ifn=4ßthenprintas$( 1): gg( 48) =m 
a:goto65698 
2678 ifn=4ithenprintas$( 1) :gg(41)=m 
3:g0t0698 


2675 ifn=42thenprintas$( 1) :gg( 42) =m 
a:g0t0698 


2688 ifn=43andgg(n)=-ithenprintas$( 
1) :gg( 43) =ma:goto698 

2685 print"das hat er ja gar nicht 
!":g0t0698 

26908 rem Hrztstsrstatstsk este Ba *+ 
2695 

ifgg[n)<>maandgg(n) <>-1then2748 
2788 ifn=ithenprint"”er hat ja den s 
chluessel dazu.":g0oto698 

2785 ifn=6andma=?thenprint"ist sie 
denn 

noch nicht offen genug?":g0t0698 
2718 ifn=1B8andnotfl( 1)thenprintas$tl 

5) :g0ot0698 

2715 ifn=19andnotfl(2)thenprintasß$( 

5) :g0ot0698 

2728 ifn=i1Bßandfl( I)thenprint"ist sc 
hon offen!":goto698 

2725 ifn=19andfl(2)thenprint"ist sc 
hon offen!":goto698 

2730 ifn=26thenprint"vorsicht, sehr 

empfindlich!":g0t0698 

2735 ifn=28thenprint"tuer eingerost 

et,aber fenster offen.":goto698 

2748 print"was will er denn oeffnen 
?":g0t0698 

2745 rem #ittieinikititiistitittt bekaempfe * 

2758 nra=, nach hartem kampf hat er 

gesiegt. 

2755 ifgg(n)<>maandgg( n)<>-1then284 

(2) 


2768 ifn=25thenprint"ja, 
er sich !":g0t0698 
2765 ifn=34andgg( 16) =-Iorn=34andgg( 
38) =-iorn=34andgg( 29) =-1then2885 
2778 ifn=34andgg( 16) <>-1andn=34andg 
g([ 38) <>-i1andn=34andgg( 29) <>-Ithen28 
95 

2775 ifn=35andgg( 16) =-Iorn=35andgg( 
29) =-1orn=35andgg( 38) =-1then2855 
2788 ifn=35andgg( 16) <>-1andn=35andg 
gt 38) <>-1andn=35andgg( 29) <>-ithen28 
95 

2785 ifn=37andgg( 16) =--1orn=39andgg( 
38) =-1orn=37andgg( 29) =-1then2865 
2798 ifn=37andgg( 16) <>-1andn=-37andg 
g( 38) <>-1andn=37andgg( 29) <>-1then28 
95 

2795 ifn=39andgg( 16) =-1orn=39andgpg( 
38) =-iorn=39andgg( 29) =-1then2875 


da getraut 
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2808 ifn=39andgg( 16) <>-1andn=39andg 
g( 38) <>-Tandn=39andgg( 29) <>-ithen28 
95 

2885 ifn=23andgg( 16) =-1orn=23andggl 
38) =-iorn=23andgg( 29) =-1then2845 
2818 ifn=36andgg( 36) <>-Ithenprint"e 
s waere wohl besser,zu helfen!":got 
0698 

2815 ifn=23andgg( 16) <>-1Iandn=23andg 
g( 30) <>-1andn=23andgg( 29) <>-1then28 
95 

2828 ifn=-37andgg( 38) =-1orn=37andgg( 
29)=-ithenprintas$(5) :g0t0698 

2825 ifn=23andgg( 38) =-1orn=23andgg( 
29)=-1ithenprintas$(5) :g0oto698 

2838 ifn=39andgg( 38) =-iorn=39andgg( 
29) =-1thenprintas$(5) :g0ot0o699 

2835 ifn=35andgg( 38) =-iorn=3S8andgg( 
29)=-ithenprintas$(5) :goto698 

2848 printas$( 11) :g0ot0698 

2845 printx?$:gg(l 23) =B:dg(34,1)=9:g 
g$l 23)="tote giftspinne." 

2858 dg( 34,2)=®:dg( 34,3) =®:dg( 34,4) 
=26:dg( 34,5) =B:dg( 34,6) =98:g0t0698 
2855 printx?7$:gg( 35) -B:dg( 63, 1)=-D:g 
g$l 35)="toter tiger." 

2868 dg(63,2)=49:dg( 63,3) =59:dg(63, 
4)=90:dg(63,5)=8:dg(63,6)=-9:g0t0698 
2865 printx?7$:gg( 37)=9:dg(65,1)=-B:g 
g$( 37)="toter saurier." 

2878 dg(65,2)=49:dg( 65,3) =59:dg(65, 
4)=9:dg(65,5)=-8:dg(65,6)=-9:9g0t0698 
2875 printx?7$:gg(39)=8:dg(68,1)=-®:g 
g$(39)="tote urwaldspinne." 

28808 dg(68,2)=59:dg(68,3)=B: dg( 68, 4 
)=8:dg(68,5)=8:dg( 68,6) =-9:g0t0698 
2885 printx7$:gg( 34) =B:dg(58,1)=63: 
gg$l 34)="die wilden sind geflohen." 
2898 dg(58,2)=54:dg(58,3)=53:dg(58, 
4)=64:dg(58,5)=9:dg(58,6)=8:g0t0698 
2895 print"ohne waffe konnte er sic 
h nicht wehren.":goto1585 

2908 rem Frust raeume *# 
290805 ifn=9thenprint"immer reinlich 
und sauber...":g0t0698 

2918 ifn=13thenprintas$( 15) :g0t0698 
2915 ifn=12thenprintas$( 1)"der weg 
ist frei":dg( 18,1)=21:dg( 18,4)=38:g 
0t069® ü 

2928 print"raeume gibts genug in di 
esem adventure!":goto698 

2925 rem #ittstaratstattattiit sprich * 
2938 ifggln)<>maandgg(n) <>-1Ithen295 
12) 

2935 ifn=34thenprint"die verstehen 
ihn doch nicht!!":goto698 

2948 ifn=36andgg( 36) <>-ithenprint"d 
ie hilferufe werden lauter!":goto69 
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17) 

2945 ifn=36andgg( 36) =-ithenprint"de 

r junge bedankt sich.":g0t0698 

2958 print"selbstgespraeche nuetzen 
nichts.":goto698 

2955 rem Hit verliere * 

2968 Teen > Torgaln) 

8 


=maandggln)<>-ithen 

2965 ifn=9thenprintas$( 1) :gg(9) =ma: 
goto698 

2978 ifn=1ithenprintas$( 1) :gg( 11)=m 
a:g0t0698 

2975 ifn=13thenprintas$( 1) :gg(.13) =m 
a:g0t0698 

2988 ifn=14thenprintas$( 1) :gg( 14) =m 
8:g0t0698 

2985 ifn=16thenprintas$( 1) :gg( 16) =m 
a:g0t0698 

2998 ifn=25thenprintas$( 1) :gg( 25) =m 
8a:g0t0698 

2995 ifn=26thenprintas${( 1) :gg( 26) =m 
3:g0t0698 

3898 ifn=29thenprintas$( 1) :gg( 29) =m 
a:g0t0698 

3885 ifn=38thenprintas$( 1) :gg( 32) =m 
a:goto698 

3818 ifn=4dthenprintas$( 1) :gg( 48) =m 
a:g0t0698 

3815 ifn=41thenprintas$( 1) :gg(41)=m 
a:g0t0698 

3828 ifn=42thenprintas$( 1) :gg(42)=m 
a:g0t0698 

3025 ifn=43thenprintas$( 1) :gg( 43) =m 
a:g0t0698 


3838 print"das hat er garnicht.":go 
t0698 

3035 rem *#### spielende positiv * 

3848 gosub169:printchr$( 147) ;chr$t 1 
4) 

30845 print"Das Raumschiff reagiert 

wieder " 

3858 print"einwandfrei. 
..Reed " 

3055 print"programmiert den Kurs Ri 
chtung " 

3868 print"Erde. " 

3865 print"Nach einem ge Schu 
b, der " 

3078 print"den Metallkoerper der... 
Rakete " 

3975 print"erpeben laesst,erhebt si 
ch der " 

3888 print"Koloss ins All und laess 
t..den " 

3885 print"unbekannten Planeten..X. 
.unter " 

3898 print"sich zurueck. ........... 


Commander.. 
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3095 poke208,8:wait288,1:restore: go 
to445 

3188 gosub1598:g0osub165:char1,2,1:pr 
int 

3185 ifma>23andma<4?thenmb=ma-23: go 
to3125 j 

3118 u RBONIEREB EINE RT 
goto3135 

3115 onmagosub3145,3165,3185, 3185,3 
205,3165,3225,3185,3165,3245, 3265,3 
285,3165,3285,3305,3325,3285, 3345,3 
365,3385,3485, 3425, 3285 

3128 return 

3125 onmbgosub3285, 3905, 3445, 3465,3 
485,3305,3285,3505,3465,3525,3545,3 
565,3285,3585,3185, 3685, 3625, 3645,3 
665,3685,3185,3185,3665, 3165 

3138 return 

3135 onmcgosub3785,3685,3765,3185,3 
165,3725,3745,3785,3165,3705, 3805, 3 
825,3845,3165,3165,3705,3865,3885,3 
165,3165, 3925 

3148 return 

3145. rem #rstarsraeapagsegeirstststeta a 
3158 fori=0*16t08#*16+11:printtab(2) 
g$li) :next:print 

3155 fori=8#16+12t08*16+15:printtab 
(2)g$(i) :next 

316® return 

3165 rem #tistaritariesksrsttt aD % 
3178 fori=1#16t01*16+11:printtab( 2) 
g$li) :next:print 

3175 fori=1#16+12t01*16+15:printtab 
(2)g$(i) :next 

3188 return 

3185 rem Hirn a3 
3198 fori=2#16t02#16+11:printtab( 2) 
ge$(i) :next:print 
3195 fori=2#16+12t02*16+15:printtab 
(2)g$(i) :next 

32808 return 

3205 rem Hrstarstarstarsestksahsr rest 
3218 fori=3#16t03#16+11 
e$(i) :next:print 

3215 fori=3*#16+12t03#16+15:printtab 
(2)g$(i) :next 

3228 return 

3225 rem #itttarmasieafskieitafatststt a5 
3230 fori=4#16t04#16+11:printtab( 2) 
g$(i) :next:print 

3235 fori=4#16+12t04*16+15:printtab 
(2)g$(i) :next 

3248 return 

3245 rem Hr ar 
3258 fori=5#16t05*16+11:printtab( 2) 
e$li) :next:print 

3255 fori=5#16+12t05#16+15:printtab 
(2)g$(i) :next 
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3268 return 

2265 rem HRRRRRRRRRRRIIEE 47 3 
3278 fori=6#16t06*16+11:printtab( 2) 
g8S(i) :next:print 

3275 fori=6#16+12t06%16+15:printtab 
(2)g$(1) :next 


3288 return 
3255 rem HH a 


3298 fori=7%#16t07*#16+11:printtab( 2) 
8$(i) :next:print 

3295 fori=7#16+12t07#16+15: printtab 
(2)g$(i) :next 

3388 return 

3305 rem Hirten 39 
3318 fori=8#16t08*16+11:printtab( 2) 
g$(i) :next:print 

3315 fori=8#16+12t08*#16+15:printtab 

(2)g$(i) :next 

3328 return 

3325 rem #HHHHHHHeHHae Bar 

3338 fori=9#16t09#16+11:printtab( 2) 

g$li) :next:print 

3335 fori=9#16+12t09#16+15:printtab 

(2)g$(i) :next 

3348 return 

3345 rem HH ab # 

3358 fori=18#16to198#16+11:printtab( 

2)g$(i) :next:print 

3355 fori=18#16+12t018*16+15:printt 

ab(2)g$(i) :next 

3368 return 

3365 rem #Hrrsttstsestatststt ee a 

3378 fori=11%*16t011#16+11:printtab( 

2)g$(li) :next:print 

3375 fori=11%#16+12t011#16+15:printt 

ab(2)g$(i) :next 

3388 return 

3385 rem #Htsratstieikshirstststatst ad 

3398 fori=12%#16t012#16+11:printtab( 

2) g$(i) :next:print 

3395 fori=12#16+12t012#16+15: printt 

ab(2)g$(i):next 

34808 return 

3405 rem Hririikararstspsratstsepit ae 

3418 fori=13#16t013#16+11:printtab( 

2)g$(i) :next:print 

3415 fori=13#16+12t013*16+145:printt 

ab(2)g$li):next 

3428 return 

3425 rem RRRRRRRRSRRRRREFEE af * 

3438 fori=-14#16t014*#16+11: printtab( 

2)g$(i) :next:print 

3435 fori=14*#16+12t014#16+15:printt 

ab(2)g$(i) :next 

3448 return 

3445 rem #Hsestarsterstststshsratsee ee DO 

3458 fori=15#16t015*16+11:printtab( 

2)g$(i) :next:print 
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3455 fori=15#16+12t015*16+15:printt 
ab(2)g$(i):next 

3468 return 

3465 rem HHrskeahkieafarstarttstätstse I 8 
3478 fFori=16*#16t016%*16+11:printtab( 
2)g$(i) :next:print 

3475 fori=16#16+12t016*16+15:printt 
ab(2)g$(1):next 

3488 return 

3485 rem HHRRRRRBRRRRISRISSIRIRN DD # 
3498 fori=17*16t017*16+11:printtab( 
2)g$(i) :next:print 

3495 fori=17*#16+12t017%#*16+15:printt 
ab(2)g$(i):next 

35808 return 

3505 rem #i3ksriharststststatstsske I 
3518 fori=18*#16t018*16+11:printtab( 
2)g$(i) :next:print 

3515 fori=18#16+12t018*16+15:printt 
ab(2)g$( 1) :next 

3528 return 

3525 rem #iarsrataratsratapatatae et A O8 
3538 fori=19#16t019*16+11:printtab( 
2)g$li) :next:print 

3535 fori=19#16+12t019#16+15:printt 
ab(2)g$(i) :next 

3548 return 

3545 rem Hass 5 
3558 fori=28*16t028*16+11:printtab( 
2)g$(i) :next:print 

3555 fori=-20#16+12t020*#16+15:printt 
ab(2)g$(i) :next 

3568 return. 

3565 rem HHHtstararststsrttarsthe 
3578 fori=21*16t0o21*16+11:printtab( 
2)g$(i) :next:print 

3575 fori=21#16+12t021#*16+15:printt 
ab(2)g$(i):next 

3588 return 

3585 rem HRRRRRRRRRRRRBRIBIBIESESESE 57 


3598 fori=-22#16t022#16+11:printtab( 


:2)g$(li) :next:print 


3595 fori=22#16+12t022#16+15:printt 
ab(2)g$(i):next 

3688 return 

3605 rem HH 8 
36198 fori=23#16t023#16+11:printtab( 
2)g$(i) :next:print 

3615 fori=23#16+12t023#16+15:printt 
ab(2)g$(i) :next 

3628 return 

3625 rem HHRRRRRRRRRRIRRRIRSRHIS I 59 
3638 fori=24*#16t024*16+11:printtab( 
2)g$(i) :next:print 

3635 fori=-24#16+12t024*16+15:printt 
ab(2)g$(i) :next 

3648 return 


3645 rem HH HH ba Pe | ) 
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3658 fori=25%#16t025*16+11:printtab( 
2)g$(i) :next:print 

3655 fori=25#16+12t025*#*16+15:printt 
ab(2)g$(li) :next 

3668 return 

3665 rem HHHzfzrstsfarstafstshatast tert bb * 
3678 fori=26%16t026*16+11:printtab( 
2)g$(i):next:print 

3675 fori=26#16+12t026*16+15:printt 
ab(2)g$(i) :next 

3688 return 

3685 rem MHritstarikafsespsrrtteettnneet bo 
3698 fori=27*#16t027*16+11:printtab( 
2)g$(i) :next:print 

3695 fori=297*16+12t027*16+15: ERROR 
ab(2)g$(i) :next 

3788 return 

3705 rem Hrststarrikssttereeteet bi * 
3718 fori=28#16t028*16+11:printtab( 
2)g$(i) :next:print 

3715 fori=28#*16+12t028*16+15:printt 
ab(2)g$(i) :next 

3728 return 

3725 rem Hirten get be 
3730 fori=29#16t029#16+11:printtab( 
2)g$(i) :next:print 

3735 fori=29*16+12t029#16+15:printt 
ab(2)g$(i) :next 

3748 return 

3745 rem HBHrRRRRRRRIRIRSRESBSESRH bE 
3758 fori=30*#16t030*16+11:printtab( 
2)g$(i) :next:print 

3755 fori=30#16+12t030*16+15:printt 
ab(2)g$(i) :next 

3768 return 

3765 rem HrrBeinnihetae od 
3778 fori=31#16t031*16+11:printtab( 
2)g$(i) :next:print 

3775 fori=31#16+12t031%#16+15:printt 
ab(2)g$(i1):next 

3788 return 

3785 rem #Hararaeaet rare lH 
3798 fori=32*16t032#16+11:printtab( 
2)g$(i) :next:print 

3795 ee prAnet 
ab(2)g$(i) :next 

3808 return 

3805 rem #irikatstaetspstststsfsfststt 02 
3818 fori=33*16t033#16+11:printtab( 
2)g$(i) :next:print 

3815 fori=33#416+12t033#16+15:printt 
ab(2)g$(i):next 

3828 return 

3825 rem #HHrstarsesetafstatstseststitt 03H 
3838 fori=34#16t034*#16+11:printtab( 
2) g$(i) :next:print 

3835 fori=34#16+12t034*16+15:printt 
ab(2)g$(i):next 
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3848 return 

3845 rem Hrn 04 # 
3858 fori=35#*16t035*16+11:printtab( 
2)g$(i) :next:print 

3855 fori=35%*#16+12t035*16+15:printt 
ab(2)g$(i):next. 


‚3868 return 


3865 rem HHreRrnfftsffttshasent 05% 

3878 fori=36*16t036*16+11:printtab( 

2)g$(i) :next:print 

3875 fori=36*16+12t036*16+15:printt 

ab(2)g$(i) :next 

3888 return 

3885 rem Hrzrstsreseakakraeststatsatare tt 06 

3898 fori=37*16t037*16+11:printtabf( 

2)g$(i) :next:print 

3895 fori=37%*16+12t037%*16+15:printt 

ab(2)g$(i) :next 

39808 return 

3905 rem #rsfakstatseieakstsgstststststetc 07% 

3918 Fori=38*16t038*15+11:printtabf( 

2)g$(i) :next:print 

3915 fori=38#16+12t038*16+15:printt 

ab(2)g$(i):next 

3928 return 

3925 rem HH oB 

3938 fori=39#16t039*16+11:printtab( 

2)g$(i) :next:print 

3935 fori=39*16+12t039*16+15:printt 

ab(2)g$(i) :next 

3948 return 

3945 rem ###t@Hnsntaee befehlsworte * 

395® datanimm,untersuche,,betrete,kl 

ettere,gehe,befreie,rette,repariere 
„hilf 

3955 databenutze,wirf,oeffne,bekaem 

pfe,sprich,verliere, raeume 

3968 datasave,load,liste,verben,tex 

t,help,ende 

3965 rem #itititstarietititt gegenstaende * 

3978 dataraumschiff,raum, 1 

3975 dataohne wasser und nahrung,wa 

ss,2 

3988 datahoehle im osten,hoeh, 3 

3985 datahoehle im norden,hoeh,4 

3998 dataverdorrter baum,baum,5 

3995 datahoehleneingang oestlich,ho 

eh,? 

4888 dataein weg fuehrt nach norden 
‚wege, 18 

40885 dataholperiger pfad,pfad, 12 

4818 dataverbeulter schutzhelm,schu 
is 

4015 dataeisernes stadttor,stad, 16 

4028 datastoffetzen,stof, 1? 

4025 dataeine menge herabfallende f 

elsen,fels, 18 

4838 dataviel abfall und geruempel, 
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abfa,19 

49835 dataseil,seil,24. 

4848 dataeine treppe fuehrt nach un 
ten,trep,22 

40845 datamesser,mess,24 

4950 dataverwittertes holztor,holz, 
25 

4055 dataes fuehren stufen nach obe 
n,stuf,26 

4068 datain der wand eine winzige m 
auernische,nisc,27 

4865 dataein lichtschein im norden, 
lich, 28 

4078 datasteinerne treppe nach oben 
‚stei,31 

4075 datadie mauer stuerzt 
ein,maue, 33 

40888 dataekelhafte giftspinne,spin, 
34 

40885 dataendlich wieder. licht und 1 
uft.luft,35 

4898 dataskelett,skel,36 

4095 datasteuerungscomputer,comp, 37 

4188 databluehende felder und gruen 
e wiesen,feld,48 

4185 dataraupenfahrzeug,raup,41 
4118 datalaser-pistole,lase,5 

4115 dataspeer,spee,44 

4128 dataein bergpfad fuehrt nach u 
nten,berg,46 

4125 dataohne wasser und nahrung, wa 
ss,47 

4138 databaumstamm, baum, 55 

4135 datazwei wilde krieger greifen 
an,krie,58 

4140 dataein 
ihn,tige,63 

4145 dataein 
ilfe,eing,64 

4158 dataein 
t an,saur, 65 

4155 dataschraubenschluessel,schr,® 

4168 datagruene riesenspinne,ries,6 

8 

4165 dataelektronischer tueroeffner 
‚tuer,® » 

4178 dataschwarzes kaestchen,kaes,® 

4175 dataschwerer eisenschluessel,s 
chl,0 

4188 datastrickleiter,stri,i 

4185 rem ##t#H##3# adventure-raeume * 
close 

4198 data"notlandeplatz in einem be 
rgkessel.",3,0,8,4,08,8:remi 

4195 data"vor ihm liegt eine weite 
endlose wueste",28,8,0,0,8,8:rem2 

4208 data"eine unueberwindliche fel 
swand ‚8,1,5,7,8,@8:rem3 


tiger stuerzt sich auf 
eingeborener ruft um h 


riesiger saurier greif 


x — 13 — 


4205 data"eine hohe felswand direkt 
vor ihm.",7,8,1,8,0,8:rem4 

4218 data"einige meter entfernt ein 
kahler huegel",9,8,18,3,0,8:rem5 

4215 data"eine weite,endlose wueste 

‚2,8,9,8,08,0:rem6 

4228 data”direkt vor ihm eine steil 

e felswand.",8,4,3,12,8,8:rem? 

4225 data eine unueberwindliche fel 


swand ‚2,08,4,11,8,8:rem8 
42308 data"eine wntte, endlose wuest 
e.. ‚2,5,13,6,8,8 :rem9 


2235. data"aine breite asphaltstrass 
e nach westen.",13,808,15,5,8,8:rem1® 
4248 data"eine tiefe, dunkle felssp 
alte !!!",0,08,8,0,8,8:rem11 
4245 data"in einem engen, finsteren 
stollengang.",8,8,7,14,8,8:rem12 
42580 data"eine heisse endlose wuest 
e....",0,18,16,9,8,8:rem1i3 
4255 data"ein langer dunkler stolle 
ngang..",17,11,12,18,8,8:remi4 
4268 data"er kommt an eine wegkreuz 
ung !",16,2,2,18,80,8:rem15 
4265 data”er steht vor einer alten 
stadtmauer.",8,0,0,13,8,8:rem16 
4278 data"ein enger dunkler stollen 
gang.",20,14,0,21,8,8:rem1? 
4295 data"er ist in einer unterirdi 
schen hoehle.",80,8,14,8,08,8:rem18 
4288 data"er laeuft durch eine lang 
e,enge gasse.",22,16,0,8,9,9:rem19 
4285 data”ein eiskalter, unterirdis 
cher see...",90,17,08,8,8,8:rem 28 
4298 data"auf einem ausgedehnten ho 
ehlenplateau.",23,18,17,24,8,8:rem2 
4 
4295 data"auf dem hauptplatz der al 
ten stadt.",25,19,0,0,8,26:rem22 
43088 data"in einem engen, finsteren 
stollen.",28,21,20,29,8,8:rem23 
4385 data"in einem dunklen,engen st 
ollen.",29,38,21,8,8,8:rem24 
4348 data"vor einer zerstoerten sta 
dtmauer."”,8,808,8,32,8,8:rem25 
4315 data"er befindet sich in einer 
katakombe.”",33,0,34,8,22,8:rem26 
4328 data"vor einer stadtmauer.",32 
‚8,0,08,08,8:rem2?7 
4325 data"der stollen verbreitert s 
ich.",35,23,11,36,8,8:rem28 
4338 data"die luft riecht nach faeu 
lnis!!!",36,24,23,8,8,8:rem29 
4335 data"der stollen wird immer en 
ger !!!",24,0,18,08,0,8:rem3®d 
4340 data"in einem kahlen felsgebir 
ge.",0,25,38,39,37,8:rem31 


4345 datefbel des Sanfällenän stadt »ı) 
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mauer.",8,27,25,0,8,8:rem 32 

4358 data"in einem unterirdischen g 

ang.",8,26,0,0,0,8:rem33 

4355 data"eine riesiges spinnennetz 
1",8,8,08,8,08,8:rem34 

4368 data"der hoehlenausgang ist er 


reicht!”",48,28,0,8,8,8:rem35 
4365 data"in einem langen,engen sto 


llen..”",20,29,28,0,8,8:rem36 
4378 data"beim wrack eines raumschi 
ffes.",41,31,0,42,9,8:rem3? 
4375 data"vor ihm eine steile felsw 
and.",8,8,8,31,8,8:rem38 s 
4388 data"vor ihm eine steilabfalle 
nde schlucht.",8,0,0,08,0,0:rem39 
4385 data"ein fruchtbares tal liegt 
vor ihm.",43,35,45,44,8,8:rem4® 
4398 data"auf einem stuermischen fe 
lsplateau.",8,37,39,46,8,0:rem41 
4395 data"in einem gebirgigen gelae 
nde.",08,39,37,48,46,8:rem42 
44088 data"”vor ihm ein breiter,reiss 
ender fluss.",08,40,49,58,0,8 :rem43 
4485 data"eine steilaufragende fels 
wand.",58,8,40,0,8,8:rem44 
4418 data”vor einer hohen, steilen f 
elswand.",49,0,51,48,0,8:rem45 
4415 data"in einem unwirtlichen geb 
irgsland.",0,8,41,53,0,42:rem46 
4428 data”in einer heissen, weiten 
wueste.",2,0,0,52,0,8:rem4? 
4425 data"in einem undurchdringlich 
en dschungel.",53,8,42,54,0,8:rem48 
4438 data”vor ihm ein breiter,reiss 
ender fluss.",9,45,55,43,0,0:rem49 
4435 data"vor einer unueberwindlich 
en felswand",8,44,43,80,0,8:rem58 
4448 data"eine steile, hohe felswan 
d.",55,08,39,45,0,8:rems1 
4445 data"in einer endlosen, weiten 
wueste.",2,8,47,56,8,8:rem52 
4458 data"in einem kleinen eingebor 
enendorf.",57,48,46,58,0,8:rem53 
4455 data"”feindliche eingeborene gr 
eifen an!",0,0,0,8,0,8:remS4 
4468 data"eine furt hat den fluss b 
eruhigt.",59,51,60,49,0,®:rem55 
4465 data"”in einer weiten, heissen 
wueste.",62,57,52,61,8,0:rem56 
4478 data”in einem feuchten dichten 
dschungel.",56,53,8,63,0,8:rem5? 
4475 data"”hier: ist der dschungel et 
was lichter.",0,0,0,08,0,8:rem58 
4488 data"eine kleine lichtung im d 
schungel.",68,55,64,8,0,8:rem59 
4485 data"ein tosender wasserfall t 
obt nach unten",08,39,8,55,8,8:rem6® 
4498 data"”in einer endlosen kahlen 
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wueste.”",66,0,56,2, 


4495 data"in einer 


ueste.”,2,56,67,66, 


8,8:rem61 
weiten,heissen w 
8,8 :rem62 


4588 data"”im dichten dschungelgestr 


vepp.",0,0,0,0,0,8 


!ırem63 


4505 data"vor einer raubtierfallgru 
be.",0,0,0,0,0,0:rem64 
4518 data"im dichten feuchten dschu 


ngel.",0,8,0,08,8,0:rem65 


4515 data"eine weite, endlose wuest 
e.",2,61,62,2,0,8 :rem 66 


4528 data"in einer 


heissen, endlose 


n wueste.",2,52,2,62,0,08:rem 67 


4525 data"das netz 


einer urwald-spi 


nne.",0,0,0,0,0,8:rem68 


4538 
4535 
4548 
4545 
4558 
4555 
4568 
4565 
4578 
4575 
4588 


adventure 
122365 
0834885 
2808808 
288090808 
889088 
209008 
023224 
826642 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


data Nn,38,w,0,0ob,u 


planet x ====128 
memory 
program 
variables 
arrays 
strings 
free (2) 
free (1) 
free (2) 


LOTTOS4 


Früher war das Lottospiel 
eine einfache Angelegen- 
heit. 

Man konnte in den Fel- 
dern jeweils 6 Zahlen nach 
eigenem Geschmack an- 
kreuzen, dann brauchte 
man nur noch bis zum 
Samstagabend warten, 
während der Ziehung kreis- 
te man die richtigen Zah- 
len ein, während man die 
falschen Zahlen einfach 
ignorierte. Am Ende war 
man meist genauso reich 
bzw. arm wie vorher, und 
in der folgenden Woche 
wurde ein neuer Tipp- 
schein ausgefüllt und ein- 
gereicht. 

Für alle Dauertipper, die 
auch häufig die gleichen 
Zahlen tippen, haben die 
Föttogesellschuhien schließ- 
lich einen sogenannten 
“Service-Schein‘‘ herausge- 
bracht. Der Schein hat 
eine Geltungsdauer von 
1-5 Wochen. 

Der Vorteil liegt auf der 
Hand. Man spart viel Zeit. 
Durch nur ein zusätzli- 
ches Kreuz hat man sich 


die Tipparbeit für 4 weite- 
re Wochen gespart. Aber 
es hat auch so seine Nach- 
teile. Hat man nämlich in 
der ersten Woche die rich- 
tigen Zahlen eingekreist, 
so wird die ganze Sache 
ab der zweiten Woche rich- 
tig undurchsichtig. Wel- 
cher Kreis stammt aus 
welcher Woche? 

Damit diese Frage gar nicht 
erst auftritt, habe ich mir 
ein kleines Programm 
geschrieben, das mir so ei- 
nige Sucharbeit abnimmt. 
In DATA-Zeilen werden 
die Zahlen abgelegt, die 
man mit schöner Regelmä- 
Bigkeit tippt. Ich habe 
hier gleich einen komplett 
ausgefüllten Schein ge- 
wählt, denn halbe Sachen 
sollte man beim Lotto- 
spielen vermeiden. 

Kurz vor Ziehungsbeginn 
ist nun das Programm zu 
starten. 

Nun werden die gezoge- 
nen Zahlen während der 
Ziehung eingegeben, und 
der Computer vergleicht 
sofort, ob die eine oder 
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LISTINGS 


andere Zahl richtig ist. 

In der Regel ist beim Zie- 
hungsende auch die Aus- 

wertung des Lottoscheins 
beendet. Keine verwirren- 


den Kreise auf dem Schein, 


sondern klare Ergebnisse 
auf dem Bildschirm. 

Wer will, kann nun dieses 
Programm beliebig erwei- 
tern. 

So kann man zum Beispiel 
die aktuellen Lottozahlen 


nach jeder Ziehung spei- 
chern, und diese so zu 
statistischen Zwecken 
mißbrauchen. 

Noch eine kleine Anmer- 
kung: Meine in den DATA- 
Zeilen verwendeten Lotto- 
zahlen unterliegen natür- 
lich nicht dem Copyright. 
Dafür sind Sie jedoch oh- 
ne jegliche Gewähr. Die 
Verwendung dieser Zahlen 
erfolgt auf eigene Gefahr. 


DISK-MONITOR 


Das erste Programm ist ein Nun zu dem zweiten Pro- 


einfacher Kopierschutz. 
Eine Anleitung wird sich 
hier erübrigen. Nur soviel 


zum Ablauf: Das Programm 


öffnet nach dem Starten 
die Kanäle 1 und 2, um 
die Spur 18, Sektor O 
(Diskname und ID) in den 
Rechner einzulesen. 
Durch Setzen des Puffer- 
Pointers für den Floppy- 
Ramspeicher beginnt das 
Auslesen der Daten erst 
beim 162. Zeichen (ID- 
Anfang). Es werden nun 
2 Zeichen (der ID) einge- 
lesen und anschließend 

in eine Zahl umgewandelt. 
In Zeile 280 wird nun ver- 
glichen, ob die ID-Num- 
mer mit der im Programm 
vorliegenden Zahl iden- 
tisch ist. Sollte dies der 
Fall sein, so wird das Pro- 
gramm forgesetzt, an- _ 
sonsten wird die Disket- 
te formatiert. 

Es ist möglich, hier Zah- 
len zwischen O und 99999 
zu verwenden, da die ID 
auch fünfstellig ist. Nur 
müssen dann auch ent- 
sprechend 5 Zeichen ein- 
gelesen werden. Es ist 
auch möglich, hier auf 
einen Buchstaben, oder 
eine Zahlen-Buchstaben- 
Kombination, zu über- 
prüfen. 

Das Programm nützt we- 
nig, wenn ein komplettes 
Back-Up der Originaldis- 
kette erstellt wird, da in 
diesem Fall auch die ID 
mit kopiert wird. Bei ei- 
ner Einzelfile-Kopie 

kann es jedoch recht 
wirkungsvoll eingesetzt 
werden. 


gramm. Hierbei handelt 
es sich um einen einfa- 
chen Diskettenmonitor, 
der die eingelesenen Zei- 
chen in ASCII-Form auf 
dem Bildschirm darstellt. 
Alle Werte werden außer- 
dem in dezimaler Schreib- 
weise angegeben. Dies 
soll allen Leuten ein we- 
nig helfen, die sich nieht 
so ganz mit der Hexade- 
zimalen Rechenweise 
anfreunden können. 

Hier nun eine kleine 
Befehlsübersicht: 

n= Read Track/Sektor 
Write Track/Sektor 


4 = Jump Link 
T = Text-Modus 
@ = Byte austauschen 
+ = Sektor +1 einlesen 


Sektor —1 einlesen 
Wie Sie sicher am Bild- 
schirmaufbau und an der 
Befehlsliste sehen können, 
wurde ich durch das Pro- 
gramm ‘Disk Cracker‘ zu 
meinem kleinen Basic- 
Programm inspiriert. 

Nun zu einer kurzen Be- 
schreibung der Befehle: 


R Read Track/Sektor 
Man kann nun wählen, 
welcher Track und wel- 
cher Sektor von der Dis- 
kette eingelesen werden 
soll. Die eingelesenen Da- 
ten werden anschließend 
auf dem Bildschirm in 
ASCIH-Form ausgegeben. 


W Write Track/Sektor 
Der zuletzt eingelesene 
Track und Sektor werden 
wieder auf Diskette ge- 


Bitte lesen Sie weiter auf Seite 63 


61 


Nr. 3/86 


speeilal-AS 
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SPECIAL 


Be 
"- 


la FE 
la: Fr 117 


speecial-AS 


u. 


« 


Lottozahlen -Vergleich 


lotto vergleich 
(p) commodore welt 


a 
— = = nm non 22227222 zz zz 


(c) by 
hermann wellesen 


version 2.8 4dz/ascii 
c64 + 1539/1541 


poke53289,@:rem rahmentarbe 
poke53281,@9:rem hintergrundfarb 


poked45,15:rem schriftfarbe 

poke?88,52:rem run/stop sperren 

cd$=chr&(ß1?7)irem cursor down 

he$s=chr$(619?):!rem home 

cel$=chr$(147):rem clear-home (c 

fori=dto2l:a$=as+tcd$:inexti 

a$=he$+tas 

x85="1234567898" +chr$(133) +chr$( 

136) 

229 dima(8,6):rem bereich fuer die 

getippten zahlen resevieren 

218 tori=1to8:rem anzahl der spalte 

rn T 

228 torj=1Itoß:rem anzahl der zahlen 

238 readali,j):rem einlesen spalte/ 

zahlen 

248 nextj 

258 nexti 

2589 printel$3cd$) "...1...2.27.32..4. 

.:022:16..:17..,8"irem darstellen der 

spalten 

274 printas$ 

288 print" 1 = 

falscheingabe" 

298 fork=ito?:irem 6 zahlen + zusatz 

zahl eingeben 

Sag printleft$(as,9);5tab(14)5" 

em eingabezahlen loeschen 

s18 printleft$s(a$,8) 

s2@ ifk>öthenk=8:print"zusatzzahl.. 
";:90sub539:90t0348:rem eingabe z 

usatzzahl k 

339 print"gezogene zahl 

:rem eingabe einer zahl 

348 iff=1thenf=@:90t0388:rem bei fe 

hleingabe zur eingabewiederholung 

sS5@ b=valtb$)irem wandel string zu 

zahl ex 

368 itfb<lorb>49then3@g:rem vergleic 

h ob zahl zwischen 1 und 49 

378 fori=itos:rem vergleich ob zahl 

doppelt eingegeben wurde 

389 ifb(i)=bthen3gdg:rem wenn ja dan 

n neue zahl eingeben 
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eingabe 0.k....f?7 = 


u 


"i:gosub538 


378 nexti 

409 b(k)=birem zahl zwischenspeiche 
rn zum spaeteren vergleich 

419 fori=1loS:irem zu ueberpruefende 
spalten ; 

422 torj=itos:rem zu uweberpruefende 
zahlen 

439 rem vueberpruefen ob die zahl ri 

chtig ist. wenn ja spaltenzaehler + 
1 

448 ifatli,j)=bandk{?7thenaali)=saali) 
+1: printleft$(tas,4)5jtabt(i%d-2);aali 
) 


sase rem ueberpruefen ob die zusatzz 


‚ahl_ richtig ist 

462 ifali,j)=bandk>sandaati)=5thenp 
rintleft$t3a$,6);5tab(i%4-3); "+zz" 
478 nextj 

4205 nexti 

478 printleft$(a$,12+k)jbirem einge 
gebene zahlen extern ausgeben 

Sog nextk 

Ss19 poke198,8:waiti98,1:printel$ien 
dırem programmende auf tastendruck 
S28 rem unterprogramm zahleneingabe 
53324 b$=""irem string zuruecksetzen 
Ss4g fori=ito3:rem max. 3 zeichen ei 
nlesen 

SS@ getz$:rem zeichen einlesen 

S689 forj=itol2:rem zeichen ueberpru 
efen 

S7?8 ifzsi>mids(x$,j,i)thennext!goto 
338 

5S@ printz$j; 

SF b$=b$+z$ 

gg ifz$=chr$t139)thenreturn:rem ei 
ngabe abschliessen (o.k.) = fi 

618 ifz$=chr$(136)thenf=il!returnire 
m eingabe abschliessen (fehleingabe 
I = +? 

629 nexti 

s>@d return 


549 rem 
ier stehen nun ihre lottozahlen 


658 data3,34,27,15,8,12 

650 data5,22,27,29,498,49 = 
6783 data1l,12,13,15,17,19 
data1,7,9,33,37,41 
data8,22,23,24,2,12 
data?,34,33,39, 29,1? 
data6,45,34,49,38,41 
data2,4,6, 39,36, 43 
rem - 

rem lotto vergleich 
rem 83839711 bytes memory 
rem 002524 bytes program 
rem 2395034 bytes variables 
rem 096448 bytes arrays 


——mmm ee 


Lottozahlen -Verg,-l 


7% rem 8093956 bytes strings = 
S52 rem 835359 bytes free = 


sig rem 


(9) 


= 222257 ZZ zm== 
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DISK-MONITOR 


schrieben. Wurden in der 
ASCII-Datei auf dem 
Bildschirm Änderungen 
vorgenommen, so werden 
auch diese auf Diskette 
übertragen. 


J Jump Link 

Hier kann man, wenn man 
weiß wie eine Diskette 
aufgebaut ist und wie 
Programme abgespeichert 
werden, diese von Sektor 
zu Sektor verfolgen. Das 
Zeichen, auf dem der Cur- 
sor steht, wird als Track 
interpretiert, das Zeichen 
nach dem Cursor gibt den 
Sektor an. So kann man 
z.B. aus der HOME-Posi- 
tion (links oben) auf 
Track 18 Sektor O durch 
Drücken der J-Taste zu 
Track 18 Sektor 1 gelan- 
gen. Ist das Directory um- 
fangreich, so gelangt man 
durch abermaliges Drük- 
ken der J-Taste auf Track 
18 Sektor 4. Auf gleiche 
Weise kann man nun 

auch Programme vom 
Directory-Eintrag bis zum 
Programmende verfolgen. 


+ Pluszeichen 

Im Gegensatz zum J-Befehl 
wird hier der nächste Sek- 
tor eingelesen. Also von 
z.B: T 18,50 zu T 1881 
zu T18,S 2 usw. 


— Minuszeichen 

Im Prinzip wie beim Plus- 
zeichen, nur das hier der 
nächst kleinere Sektor 
eingelesen wird. 


T Textmodus 

Im Textmodus kann man 
über Tasteneingabe die 
auf dem Bildschirm darge- 
stellte ASCII-Datei verän- 
dern. Beendet wird der 
Textmodus durch Drük- 
ken der RETURN-Taste. 


@ Klammeraffe 

Bei Drücken dieser Taste 
wird der Chr$ des Zei- 
chens, auf dem sich der 
Cursor gerade befindet, 
auf dem Bildschirm ange- 
geben. Dieser Wert kann 
jetzt verändert werden. 
Dies ist ab und an notwen- 
dig, wenn man bestimmte 
Zeichen ändern will, dies 
aber im Textmodus nicht 
gelingt (z.B. bei inversen 
Zeichen). 

Hier wird nun einfach der 
Chr$ des neuen Zeichens 
in dezimaler Form einge- 
geben, und schon wurde 
das Zeichen geändert. 
Drückt man einfach 
RETURN, so wird das al- 
te Zeichen übernommen. 
Während des Betriebs sind 
alle Cursortasten aktiv. 
Man kann also den Cursor 
wie gewohnt über die 
ASCII-Daten bewegen. 
Durch einen einfachen 
Schutz wird verhindert, 
daß der Cursor das ASCII- 
Feld verläßt. 

Die CLS-Funktion ist : 
nicht mehr aktiv. Statt 
dessen wird ein HOME 
ausgeführt. 

So, das wäre die Kurzbe- 
schreibung zum Disk-Moni- 
tor gewesen. 

Beide Programme sind 
noch nicht 100%ig ausge- 
reift und können dement- 
sprechend vom Benutzer 
nach Belieben ausgebaut 
und verfeinert werden. 
Aber ich bin überzeugt da- 
von, daß beide Program- 
me dazu dienen, den 
Computerfreunden etwas 
mehr Einblick in die Ge- 
heimnisse ihres Disketten- 
laufwerks zu geben. Und 
solche ‘Denkanstöße‘ 

sind oftmals mehr wert 
als das schönste fertige 
Programm. 

(Jedem Benutzer sein 
Erfolgserlebnis.) 


Diskc—- Monitor 


ı ss 

18 rem disk-monitor =========2===2=44 
28 rem {p) commodore welt ts = 
48 rem (c) by = 
56 rem hermann wellesen = 
oß rem = 
8 rem version 2.9 49z/ascii = 
Sg rem c-64 + 1541 Floppy = 
904 rem SF3= 32325222 5 EEE ES EEE SE EEE 
1@d@ rem *%%* farbcodes/steuercodes # 
1198 c4$=chr$(617):c2$=chr$ (145) 

128 hesschr$(819):c1l&=chr$(147) 

139 c3$=chr$(929):c1$=chr$(157) 

1489 rem ======222225S222 222222222255 = 
159 pokeS5328@,0:rem rahmenfarbe sch 
warz 


16885 poke53281,@:rem hintergrundfarb 
e schwarz : 

178 poke695,1S:rem zeichenfarbe hel 
Igrau © 

1524 poke?88,52:rem run/stop sperren 
178 printchr&{i4):irem kleinschriftm 
odus 

289 printchr$($8):rem umschalten des 
modus sperren 


z21i@ dimts(12) 

228 fori=itol2Z:readtsti)inext 

23@ printcl$3 

244 rem *%%*%beginn hauptprogramm %* 


256 
284 
278 
228 
278 
Sag 
sie 
328 
33 

348 
353g 
368 
378 
388 
sea 


input"track ";t 
printc2$;tab(29) 
input"sektor "js 

gotos?d 

k=1424 

got 0488 

z2$= vn 

pokek,al 

rem %% abfrage auswerten *%* 
ifz$=c4$thenk=k+48 
ifz$=c2$thenk=k-4@ 
ifz$=c3$thenk=k+i 
ifz&=ci$thenk=k-i1 
ifz$=he$sorz$&=cl$thenk=1424 
ifz$="t"orz$="T"then5sg 


498 ifz$="r"orz$="R"then23g 
ala ifz$=e"Ww"orz$="W"then83g 
426 ifz$="j"orz$="J"thens?® 
430 ifz$="S"then?7öß 

449 ifz$="+t"thens=s+tl:gotosrg 
4ag ifz$="-"thens=s-1:g0tos?rd 


46% 
478 
489 
og 
Sog 
sig 
S28 


ifk>1424+259thenk=k-6%48 
ifkg1424thenk=k+6%49 

al=zpeek tk) 
pokek,al-128and255 

printhes$ | 
fori=1tosd:print:next 
print"asc code "jalscis;" " 


» 
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Disk-Monitor 


338 
544 
ataY] 
Sog 
578 
sed 
sr 
sg 
ld 
624 
&3d 
849 
835g 
[1=)7] 
678 
et=77] 
arg 
7a 
=ts( 
7189 
7248 
738 
ktor 
rag 
758 
768 
r 35 
Br 

788 
798 
sog 


s1@ 
8289 
838 
sg 
853g 
=1-17) 
878 
=1=17] 
897% 
7a 
918 
928 
938 
48 
958 
958 
978 
988 
974 
1968 
1918 
1928 
1936 
1849 
1458 
1984 
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rem %%%* tastaturabfrage *%* 
for i=1to05g 
getz$:ifz$=""thennext 

9010329 

rem %% up text aendern *%* 
printhe$ 
fori=itod:!printinext 

print" 5 ® 
getvg:ifv$=""thensie 
ifvsschr$(13)thenz$=""!goto34d 
pokek,asc(v$) 

k=k+il 

30t0348 

rem *%kup sprung track/sektor** 
t=peek (k) 

s=peek (k+1) 
ift<lort>35then199g 
fori=1tol2step3:ift)>=tsti)andt 


itl)thenti=ts(i+2):90t0728 

nexti 

ifs<dors>tithenidre 

printcel$; "track "5jt;5tab(29)5"se 
Ne 

goto98g 

rem *% up byte aendern *%* - 


printhes:print:print:iprint"alte 
e-code ";jal 
input"neuer code 
printhes 
print:print 
fori=1to3:print" 
"inext 


"zal 


gsoto319 i 
rem ** up daten schreiben #+ 
printhe$:print:print"o.k." 
open1,8,15 
open2,8,2,"#" 
print#1,"b-p"}2;58 
fori=8t0255 
:a$=chr&$(peek (19424+i)) 
:print#2,a8$; 
nexti 
print#1, "u2"52;0d;tjs 
close2 
print#1,"ig" 
closel 
printhes:printiprint" = 
goto31g 
rem *&* up daten lesen %* 
open1,8,15 
open2,8,2,"#" 
print#1, "ul"52;@;tjs 
print#1,"b-p"}258 a 
for i=8t0255 
: get#2,a$ 
:poke1424+i,asc (a$+chr$(9@)) 
next 
close2 


closel 
3oto2r@ 
printhes 


sektor" 
90t0238@ 


datal,17,28 
dat3a18,24,13 
data253, 39,17 
data31,35,16 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


dasg?z2 
299006 b 


disk-monitor============ 
359711 bytes 
492595 bytes 
KISg?O bytzss 


B26R65 bi 


print:printiprint"illegal trac 
wait178,1:poke198,@ 


rem anzahl der sektoren/track 


Pe 


memory = 
program 
variables 
art ays 
strings 
free (4) 


IE N MSN IR 


nn nn nn nn 
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Suche C-64. Zahle ca. 100 
DM für Gerät, das äusserlich 
beschädigt sein kann, anson- 
sten aber o.k. ist. Angebot 
mit Angabe des Baujahres u. 
Beschädigung an: R. Salzner, 
Ingolstädterstr. 12, 8832 
Weissenburg. Antworte bei 
Annahme innerhalb 10 Ta- 


Suche für VC-20: Modulbox 
VC 1020. 40/80 ;Zeichenkar-. 
te oder -Modul. R. Ritter, Am 
See 22, 7520 Bruchsal 5 
Suche Service-Unterlagen für 
CBM 4023 ß, CBM 4040 und 
Epson MX 80, sowie Interfa- 
ce VC 128;CBM 4040 (IEEE 
488) oder Bausatz gegen Ko- 
stenbeitrag. H. Kastenmeier, 
8401 Irnkofen 16. Tel, 
09454/244, möglichst nach 
19 Uhr . 

Verkaufe für VC 20: 16K 
Erw. und Schreibmaschinen- 
kurs = VB 60 DM. Suche für 
C16: Netzadapter, Software 
(Tausch). Listen und Angebo- 
te an: Thomas Weiß, Meis- 
sener Bruch 3, 4950 Minden. 


Tel: 0471/36159. 

Hallo. au 

Suche Vioce;Master bis _ 

50 DM. Interessierte Le- 

ser bitte melden. Schreibt 
oder ruft an. Tel: 04334/706. 
Marc Pedex, ab 17 h. Katzhei- 
de 20. 2371 Bredenbek. 


VC20 +3K + 16K + Data- 
sette + Joyst Ick + 10 Kaset- 
ten und 2 Bücher + 2 Spiele- 
bücher. VB = 300 DM. Tel: 
0241/871058. 

Suche dringend Rollen- und 
Strategiespiele (C 64) z.B. 
Ultima, Colonial Cong., Batt- 
le for Normandy. Corg. + 
Anl.) Nur Disk-Liste mit 
Preisvorst. an: Andreas Mor- 
lok, Hegelstr. 27, 7400 Tübin- 
gen (C 64). 

Suche C 16-Programme. An- 
gebote an M. Züchner, Tel.: 
02371/42869. PS: Nur auf 
Kassette. 
Computer-Olivetti-P 6040 
mit Floppy + Drucker P 6040 
SBS zu verkaufen. Preis 
1.000 ,-- DM. Tel.: 02932- 
29179. 


Gute C;64 Spiele sind teuer — 
nicht bei mir: Bomb Jack 12 
DM, Karate ;Man (!!!) 12 DM, 
Donkey KOng 20.3 9 DM, 
Dragonwar Ld (!) 10 DM, 
usw. Katalog anfordern. 

S. Kleina. Tel: 05405/1604. 


Suche Disketten. 

Wer hat alte und mindestens 
95% fehlerfreie, 5 1/4 Dis- 
ketten zum Preis von weniger 
als 1,50 DM pro Stück? Kaufe 
bis zu 25 Stück. Schreibt bit- 
te an: Dietmar Splitt, Stetti- 
ner Str. 51, 7144 Asperg. 
Eilt! 


TTS 


Mondlanıdung 


mondlandung 
{p) commodore welt = 


(c) by ph. bertschg 


version 2.9. doz/ascii 
c-64 + vc-15317/1541 


cl$=chr$(147):c94$=chr$(17) 
rn$=schr $(18):rf$=chr$(146) 
hesschr$t19) 1c3$=chr$ (29) 
d2$=c4$+c4$:d3$=42$5+C4$ 
si$=chr&(32):a2$=sis$+si$ 
ci$=chr$t157): v2&$=c1$+c1$ 
v3$=vV2&tc1&:v4$=V3$+tc1&$ 
as3t=a?7$+s1$: ad$sa3s+si$ 
e5t=ad$+s51$:12$=chr&(1657?) 
us3$=chr $t199) !e94$=chr$(169) 
e3$=chr$t12?7):ki$=chr$(119) 
kKP&=chr&(199):y3$=chr$(162) 
16$=chr$(1584): 11$5=1d$+16$ 
Img=]1$+11$:15$=chr$ (163) 
lo$®=chr$(183):y8$=chr$(1849) 
c2&=chr&$(145):h2&$=c2$+c2$ 
HStE=h2$+c2$:df$=-d3$+43$6+d3$6+43$ 
+43$ 

11? y4S=chr$(172):25$=chr$(173) 

118 vS$=vVv4$tc1$:dös=d3Erd3E$ 

128 w2$=c3$t03$: w3$=Ww2$+c3$ 

499 poke53289,@4:poke53231,98:printch 
r&(5) } 

41% 
429 
434 
44% 
454 
dag 
arg 
435 
og 
sag 
s18 
528 
Ss3g 
542 
553g 
taY-12] 
578 
539 
5978 
ag 
61 
628 
63€ 
698 
be} 


rem <c> 1985 by 

rem ph. bertschg 
rem viel spass 
3osubil@z@:irem sound 
printcols$; 

300728 

i9=15 

gosub114@ 

printc4$ 

th=d:t=8 

xA=528A8 
ve=-1?6:+=1:5=1 
gosub434 

gosub1598 
at=stitag=sti 
getrr$:ifrrs$<>""thenr=valtrr$) 
ifiti-at) >Sdthenat=ti:901L055535 
g90t063535 

t=t+r 

th=th+i 
3=3.4%11-2.2%r) 
x=v9+9.5ta:xd=xQtx 
ifx@>@then35g 

NEN - RE FSRXd=R 
d=SvAtvYl-2ixta 


[=1-1) 
678 
[1217] 
677] ;, 
rad itvg>fthenprintreng; 

18 printhe$sd3$c3$mids$(str$(v@),2,5 
IrfS$; E 

728 printleft$(str&tx@)+ta$(9),?) 
739 printd2$ 

748 printc3$5 2599-t;c1$a3$v2$tab (8) 
‚th 

758 gosubööß: iftf=fthengosubi1198: got 
01258 

78 itft>2S@dthenr=d:goto3dg 

778 900645535 

as=c4$+vV4$+c1$ 

3$5(9)=35$ 

a$(1)=si$+1l2$+u3$+si$ 
a$(2)=sl$+trn$treds+tsi$te3strt$rs 


ifd>’dthen38g 
d=-dis=-i 

vd=sgr (d)*s*#sgn (x) 
s=1 


a$(3)=s1l$+rn$+si1$+tu3$+sistrf$ 
38$(4)=si1$+rn$teds+"brd"te3strf$ 
a8 (5)=ki$trnstresdsty3ste3strtstk 


a5 (ö)=a5ll) 

printhesd2$tab (19); 

fori=dtod 

printa$li)tas; 

next ; 

printhessi$im&lm&$1m$ 

P1i@d printlZ$rn$"gesch hoehe"sitrf$1 
46: gosubö48 

928 printl2$rn$"liter 
$:gosub&6498 

938 return 

948 Fori=ito2:iprintl2$tabt13)14$: re 
*t 
9389 


zeit"a2$rf$14 


printi2&1m&im&im$ld$ireturn 

96d printtabt19)5j:ifr=fthenreturn 
978 gosub1ß89:fori=itor:printki$15$ 
Kr&c4EV3$; :next 

971 ori=ertol®:printa3scd4d$v38S; :next 
88 printh3$h3$h3$h2$; :fori=sitold:p 
rinta3tcod$v3$; :nextireturn 

Pd if g$="" then 1379 

1898 gotods5535 

1818 print"dieses spiel simuliert d 
ie landung " 

18228 print"eines raumschiffes auf m 

ondoberflae-che. angegeben wird fol 
gendes:!" 

18358 print 

18939 erinttab (5) "sinkgeschm.....,.in 
ft/sec" 

1852 printtab(5)"hoehe... 
feet" 

1988 print" 
liter" 


ae en 


resttreibstoff......ifi 
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Mondliandung 


! 


1878 printtab (5) "fallzeit........in 
sekunden"iprint 

18389 print"sollte die 

digkeit..." 

1898 print"negativ erscheinen, 
so: "rn$"256&"rf$", dann" 

19871 print"steigen sie auf." 
1188 print"durch eingabe von ziffer 
n bremsen sie,..je 

hoeher die ziffer, desto" 

1118 print"staerker. bei eingabe vo 
n 5 bleibt die sinkgeschwindigkeit 
konstant. . 

1126 print”’wollen sie weich landen, 
dann mit wenigerals 15 ft/sec aufse 
tzen!" 

1152 print"treibstoffvorrat 2588 li 
ter." 

114% print"wenn der treibstoff verb 


sinkgeschwin 


z.b. 


raucht ist, dann stuerzen sie leide 
r ab.” 

1158 print 

1182 print"haben sie verstanden? (j/ 
n) 

1178 get u$:if u$="j"then 4798 

1189 if u$="n" theni121 

1178 goto 1178 

1288 ifleft$(us,1)="j"thend4?9 


1218 printcel$:iprint:print:printipri 
ntsprint:print:print:print:iprintipr 
int 

1228 printtabt(19@) "sie idiot!" 

1238 for i=1 to2edad 

1248 next i 

125% printcl$"lesen sie nocheinmal 
sorgfaeltig durch!":goto 19818 

1289 rem sid initialisieren 

1278 s=54272: hf=st1!vo=s+t24:1sz=s+4 
1288 fori=stos+t24:pokei,@:next 

1299 return 

1388 pokevo,15: pokesz,33 

1319 pokes+5,8:pokes+5,8 

1328 fordr=1tor*22step22 

1339 pokesz,33 

1349 pokehf,dr 

1359 pokesz,32 

1359 nextdr 

1378 return 

1358 printcls$ 

1398 foriil=1toil4 

1498 printtab (39%*rndti));"." 

1418 nextil Mr 

1428 return 

1438 h=4.5:h$(1)=si1$:h$(2)=si$:h$(3 
I)=y9&:h$(4)=y3$ 

1431 h$(5S)=ern$+y8$trf$s:hs(ö6)=rn$+tlo 
E+rrf$ 

1449 h$t7?)=ern$+15$+trf$s:h$(8)ern$+sil 
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$+trtS$ 

1458 printhesdf$d2$:#fori=1t049 

1469 n=int (rnd(1)%7) +l!ifabs(n-h) >2 
then1469 

1473 hen:printh$(h);inextiireturn 
1488 printhe$d3$spc (19); 

1498 fori=1to18:forj=®dt05:printastj 
I+ta$jinext:iprinth2$hS$si$; inext 
1599 ifv@<-15then1526 

1518 printiprintd3$d3$"herzlichen g 
lueckwunsch! weich gelandet":goto i 
548 

1528 pc$=a3$+04$5+V4$ta4$+c4$+V4$+a4 
StHc4StV4S+V25t33$5tW3SHrnSre3StCIHrY 
4$+51$ 

1521 pc$=pc$+tc4$+Vv5$+V5$+tr f$+e3$+trn 
Stsi$trf$tre3s+u3st zZSsHSslhrrnstSlstr 
t$te2$ 


1522 printpcs 

1539 printd2s$ 

1549 print"wollen sie noch einmal?" 
1559 get g$ 

1558 if 9$="j" then 478 

1578 if 9$="n" then1599 

1589 gotol55g 

1579 printcel$:printiprint:printipri 


ntiprintiprintiprint:iprint 

1698 printa2s"wollen sie mondlandun 
9 spielen?" 
l18id get g$ 
15828 if ge="j" 
1538 goto 161% 
16949 end 

1558 printhesdssdssdss 

15860 a=ti 

1678 print"mondlandung beginnt in.. 
.."55-int((ti-a)/689) 5ci$s1$"sekunde 
n"adsh2$ 

1688 if(ti-a)<3@gthen167g 

1874 print? „0.5 


then 458 


"ir=d 


1738 return 
1718 rem copyright by 
1728 rem ph. bertschg 
1738 rem <c> 1983 
1748 rem mondlandung 
1759 rem 38911 bytes 
1768 rem 
17?8 rem 
1789 rem 
1798 rem 
1898 rem 
18168 


memory 
program 
variables 
arrays 
strings 
free 


nıannın 
nıanıa mn 
mama Du 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 


nn nennen 


zn 


LISTINGS | 


PLANET X MIXED 
64/124 


Fortsetzung von Seite 34 


denn der Steuerungs- 
Computer hat sein Leben 
ausgehaucht. Reed muß 
also in den über siebzig 
Räumen einen neuen 
Computer finden, und, 
um diesen einzubauen, 
benötigt er natürlich auch 
Werkzeug. 


Folgende Befehle versteht 
der Computer: 

O Befreie, benutze, be- 
kämpfe, betrete, hilf, 
klettere, nimm, gehe, rette, 
repariere, räume, sprich, 
wirf, untersuche, verliere. 


Mit >SAVE< wird der mo- 
mentane Spielstand auf 
Diskette abgespeichert, 

mit >LOADX< unter An- 
gabe des Filenamens wie- 
der in den Computer ge- 
laden und das Spiel an 
dieser Stelle fortgesetzt. 
Der Befehl >LIST< gibt 
einen Überblick über die 


mitgeführten Gegenstände. ne$ 


Programm-Variablenliste: 
ra 
Anzahl der Räume 


ga 
Fan der Gegenstände 


a 
Anzahl der Befehle 
wo 
Länge des jeweiligen Ortes 
ma 
Raum, in dem sich der 
Spieler befindet 


mg 
Anzahl der mitgeführten 
pppostande 


Re 
Anzahl der Flags (der zu 
erfüllenden Bedingungen) 


g 

Anzahl der Grafikzeichen 
rm i 
Raumbezeichnung 


8 
Nummer des entsprechen- 
den Raumes, 


gg$ 

Bezeichnung des jeweili- 
gen Gegenstandes 

nm$ 

Die für den Computer ver- 
ständlichen Gegenstände 


BEZABRUDHE: Nummer 
b 


a 
Befehlswort 

aa 

Aussagen und Antworten 
auf jeweilige Eingabe 


g 

Grafikzeichen 

cs 

Position des Cursors 
cz ’ 

Position der Zeile 

e 


39 X >Space< 


er 
Nummer des Grafikfeldes 
re 

Anzeige >Momentan kei- 
ne Richtungsangabe 
möglich< 


8 
Negative Mitteilungen 
an 
Eingabe 
n 
EU EADHIIBE® 


te 
Prüft auf Spaceeingabe 


n 
Nummer des gerade be- 
nützten Verbes 


* 


Anmerkung: Zuerst muß 
das Grafikprogramm ge- 
laden und gestartet wer- 
en. Hierzu am besten ei- 
ne Sicherheitskopie des 
Programmes verwenden, 
da sich der Grafikteil nach 
dem Start selbsttätig in 
ein sequentielles Files um- 
wandelt und auf Diskette 


PLANETX 


Als erstes erfolgt die 
Auswahl zwischen einer 
reinen Textdatei oder ei- 
ner gemischten Zahlen/ 
Textdatei. 

Nach Erscheinen des 
Menüs können folgende 
Unterprogramme aufge- 
rufen werden: 

Neue Datei eingeben 
Speichern einer Datei 
Bestehende Datei laden 
Anfügen an bestehende 
Datei 

Daten auf Bildschirm 
Print (Daten auf Drucker) 
Löschen der Daten 
Umschalten zur Zahlen- 
Text-Datei 

Ende 

Nach Aufruf des Mo- 
dus >Neueingabe< er- 
folgt die Abfrage >Datei- 
name<. Nach Ende Daten 
speichern, falls nötig, 
Datendisk einlegen. 

Menüpunkt >Spei- 
chern einer Datei<: Soll- 
te es Probleme beim 
Abspeichern der Datei 
geben, wird automatisch 
eine Disk-Fehlermeldung 
in Klartext gedruckt. Me- 
nüpunkt >Daten laden<: 
Nach Abfrage des Datei- 
namens erfolgt entweder 
eine Übernahmebestäti- 
gung oder eine Disk-Feh- ' 
lermeldung in Klartext. 

Bei der allgemeinen 
Textdatei sind Komma, 
Semikolon, Doppelpunkt, 
Anführungsstriche zur 
Eingabe erlaubt. 

Menüpunkt >Anfügen 
an eine bestehende Da- 
tei<: Sind keine Daten 


im Speicher, informiert 
der Computer darüber. Es 
wird bei bestehenden Da- 
ten die Anzahl angezeigt, 
um weitere Daten anzu- 


. fügen. Eingabe mit >*< 


beenden. Danach Abfrage 
>Daten speichern?<, 
falls nötig, Datendisk ein- 
legen. 


Menüpunkt >Daten 
auf Bildschirm<: Abfrage 
>Einzelschritte per Ta- 
stendruck oder angezeigt, 
Eingabe beenden mit >*< 

Menüpunkt>Drucken< 
Nach Aufruf dieses 
Programmteils ist zur 
Druckeranpassung die 
Änderung der Sekundär- 
adresse möglich. Drucker 
einschalten nicht verges- 
sen, sonst Programmab- 
sturz! 


Menüpunkt >Löschen 
der Daten<: Nach einer 
Sicherheitsabfrage sind 
dann die Daten unwider- 
bringlich futsch und der 
Arbeitsspeicher geleert. 

Menüpunkt >Umschal- 
ten zur Zahlen und Text- 
datei< (Oder umgekehrt): 
Nach Anzeigen des Zwi- 
schenmenüs Text- und 
Zahlendatei sind folgende 
Auswahlpunkte möglich: 
Neueingabe 
File laden 
File speichern 
File anzeigen 
File addieren 
File erweitern 
Druckerroutine 
Ende 
Umschalten auf Textdatei 39 
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Mid Dat=i 


i8 rem mixed datei sna2=mzuzuzz2uu&4 
28 rem (p) 82/86 commodore welt io 
3ß rem sezs2=Sz22uzZZuseznsegmemzzemum 
48 rem (c) 82/86 harald beiler 
38 rem 
&d rem 
78 rem 


version 2.8 498z/ascii 
828 rem c-64 + vo-1531/1541 = 
9A rem serzemzezzmsezasssaszansımsanmenm 
rns=chr#(Bl8):ırfs=chrs$(146) 
el®=chrs(147?):si®8=chrs (932) 
sls=chr#(814):dc#=chrs$ (888) 
he®=schr81819):c48=chr8(9817) 
d28=c48+c48: d38=d28+c48 
d48=d43$+c4%: d5$=d4E+c4$ 
a2$=51%+s18: a3$=32$+s1% 
adgsa3sts18: a3g=ads+si® 
ceI38=chr# (827): w2B=cI36+c3$ 
w38ewW28+c3$:w4$ewn3$+c3$ 
wSsewds+tc3#:c2$=chr$(145) 
el®s=chrst 137): v28=c1$+tc1# 
v3geVv28+c18: v48=V3St+c18 
ecs=chr8(289) :suß=echr$(142) 

248 printcelSrnssis"t"sitrfs"ext-dat 
ei oder"rnssi@"z"si@rtf®"ahlen/text 
yu 
259 
338 
268 
278 
288 
298 
Kuss sseaseaa. "rem 37 Spaces 

Sad poke53288,9: poke$53281,8: prints] 
Sdcs$c1#: ze=a3d9: dimaß(ze) 

318 n=389: dimntn)ireturn 

328 rem KARRRRRERRÄRNRRRRRRRRRRTTNNT 
rem KRRERKRRRERRRR anfangsbild * 
rem RRERKRRRRRRRERRRRRKRRTRTTNNK 
gosub2948: printhesd2s 

printtab (Z)rn$a3®#"ALLGEMEINE 

x T DATEI"aS6r ts: gosub?98 
printd2s 
printtab (2) "Eingabe: "siärnssis#" 
entsprechender Dateiname"si$rfs:pri 
nt 

398 printtab(i1l)rnssis"die Daten"as 
saSsaSsslsrtfs:print:gosub?98 
#88 printtab(2)rn#a2s"Komma, 
lorn, Doppelpunkt,, "a3rf#® 

418 printtab(2)rnsa2s"Anfuehrungsst 
riche sind erlaubt!"sisrfs:gosub?9% 
428 poke2i1,32: poke214,21:8y33844%: 
printrn®"Taste" 

438 getegs: iFegtte!""thend43d 

AB rom KERKRKRRRRÄERRRRÄRRRRTRRRIRR 
458 rem KRRRRKRRr eingabe/ausgabe # 
FEB rom KRÄRRRRRRTRRERÄRRKKRRRENITTR 
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getas: ifas="t"thengosub289; goto 


ifas="z"thengosub28%: g9oto219% 
got0o238 
poke6s44,9 


VEwer a nn nr hie en 


Semico 


478 printcels 

489 gosub2B49: gosubBlß! gosub126@ 
498 getegs 

509 ifeg$="n"thend?dd 


ifege="p"then137% 
ifege="b"thenl948 
ifegs="d"theni 1a 
ifegs=a"a"thenl?0% 
ifegs="e"thenend 
ifegs="]"theniPi® 
ifeg$s="s"then?38 
ifegs="u"then2190 

g0t0498 

printelsj:g90sub?99 

BRANTERDI FI FOR NERWINgRBETFTM 
gosub?99: gosub8#g 

628 printtabti)sj:sprintcdssisj:input 
"Dateiname "jcm$ 

638 gosub?9G: gosub&s42:g0t 0848 

648 printize=i 

659 printtab(2) 3 :poke631,34:poke1l98 
‚2:pokeil9,64 

668 inputas(ze):pokei19,9:printchrst 
13)} 

tl=ze/1S5:fori=1t0o49 
iftleithengosub?6% 

next 
ifastze)=chr$(42)thenreturn 
ze=ze+l:ipoke198,8 

gotosse 

rom KRRARRRRRRRTRREHRKÄKKRRRRRRR 
rem RRKRRRERRR unterprogramme * 
rem KERRKRRRRRRRRERERRTTRITRTN N 
poke2i1,8:poke214,8:3ys3844% 
778 fori=8tolS:printizsinext:ipokeZi 
1,8: poke214,8:3ys586449:return 

788 printtab (3) cdernsstrs(a)bsstr®(t 
e)strs(d)rfsireturn 

7978 printtab(1)j:fori=dto3S:printceh 
r&tPö)jinextiprintchrs(Pöä)tireturn 
82% printtab(2)c4ernsaä5sa3s"Eingabe 
beenden mit *"aSsrfsireturn 

818 printhesd2stab (2) rnsa5saSsa3s"M 
EN U E"a53$358633$r +8: gosub?9Y:retu 
rn 

828 fori=itoze:ifas(i)=""then1879: n 
ext 

838 return 

849 print:printtab(2)c4srn$sis"Date 
n speichern. ....(j/n) "a5sadsrtfs 

859% printtab(2)c48"Falls noetig, Da 
ten-Disk einlegen!" 

858% getegs 

878 itfegs="j"then?3Q 

888 itege="n"theng4?% 

BA gotoB8%sß 

PR rum RRRRRKKRKRKKNRRRHRRRRRRRTITR 
F1D rem KARA daten speichern * 


mMmiced Datei 


F28 rem RERRKRRRRRRRRRRKRKRKRKIKNNTTRTTH 
738 printcl®ec4Srnssi®s"Daten speiche 
rn: "a583a58358$a4$rFS6: print 

748 print"File-Name: "jcms$ 

958 printiprintcms" wird jetzt abge 
speichert.":print"Bitte warten. ":pr 
int 

748 open2,8,2, "80: "+cmb+",8,w" 

978 print#2,ze 

98% fori=itoze:print#2,chrs(34) +as( 
i)+chr#(34)inext:close2 

9728 gosubiBRR 

1298 gotol1?ß 

1818 rem IHERRHHHRRIHHRHHHHHHHHHNN 
IR2O rem KRARKRRRRRKR daten laden * 
IB3O rom KRRRKKHKRRRKRRRRRRKKKKRKIRTTRH 
124% printcel$d26rnsa2s"Daten laden" 
assaS5sa3saigaisrfK:print 

1258 input"Dateiname: "jcms$ 

1858 open2,8,2, "80: "+cm+",s,r"ipri 
ntem® . 

1278 input#2,ze 

1988 fori=itoze:input#2,asli)inext: 
celose2 

IBFB gosubl1889:90t0470 

1128 printcl$w2s6rn$sis"Ausgabe auf 
Bildschirm" a5$a3$a28rf$ 

1118 print"g"’tab(2)rnssis"E"sisrts" 
inzel-Schritt per Tastendruck" 

1128 printtab(Z)c4ernssis"GO"sisrt®" 
esamte Datei anzeigen":gosub?9% 
1138 getegs 

1198 ifegg="e"theni139g 

1159 Ifege=a"g"theni39d 

11688 gotoli13d 

1178 printtab(2)cdSrn®sis"D = druck 
@fisosanazaeaaaı «MM = Menue "rt 

1188 getess 

1198 ifeg$="d"thengosub1379:90t0478 
1289 ifegs="m"thend?2 

i218 ifegs="s"then?9d 

1228 gotolil8® 

1238 rem RRRRRRRRRRRRRRRKRRKNKTTRRT 
1248 rem X ein/ausgabe-menue * 
1259 rem RRRRKRKKKKRTRTRRTTTIITITINN 
1268 printcdstab (Z)rnssis"N"sisrts" 
eue Datei eingeben":print 

1278 printtab(Z2)rn$sis$s"S"sisrfs"pei 
chern einer Datei":print 

1288 printtab(Z)rnssi®"B"siäßrfs"est 
ehende Datei laden":print 

1298 printtabt2)rn$sis"A"rsisrts"'nfu 
egen an bestehende Datei":print 
1388 printtab(Z)rn®si®"D’sisrfs"ate 
n auf Bildschirm ":print 

1318 printtab(Z)rnssis"P"sisrfs"rin 
t (Daten auf Drucker )":print 

1328 printtab(2)rn$sis"L"sisrfs"oes 


TE n— 


chen der Daten":print 

1338 printtab(2)rnssis"U"sisrts"’msc 
halten zur Zahlen/Textdatei" 

1348 poke211,8: poke214, 29: sys58849} 
gosub?9%: printtab (Z’)rnssis"E"sisrfs 
ınde" 

1358 return 

1368 rem RRRRRRRKKKERKRRRRRTRRRRTRTN N 
1378 rem X#%%%%% daten ausdrucken * 
1389 rem KRRRRRRÄRTNKRRINIHTIIIT TH N 
1399 printelsc4asernssi®"Drucker-Rout 
ine"a5sa3sr+s$ 

14889 printc4#s1i#"Aenderung der" 
1418 print" Sekundaeradresse" 

19428 printtab (19P)c2e"?"j:printväßsi: 
inputsa 

1438 printcderns"Wenn Drucker berei 
t ist, Taste druecken "rfs 

1448 pokel98,@:waiti98,1' 

1458 opend, 4, sa: cmdd 

1468 print#4, cms: print#4ifori=itoze 
sprint#4,aß(i)inext:print#4iclosed! 
900478 j 

1478 rom KRRRÄRRRRRRRRRRRKRTNRRTNN RT 
1488 rem #%%%%* bildschirm-ausgabe + 
1498 rum KRÜKRRRRRRTRRRRTTKTT TI 
1599 gosub828 

1519 printems:printize=si 

1528 printtab(Z)a$(ze)itli=ze/15:pok 
e193,8:wait198,1 

1539 fori=1t049 

1548 iftl=ithengosub?68 

15529 next 

15689 IFas(tze)=chr#s(42)theni1?7% 

1578 ze=sze+i 

1588 gotodsß 

1599 gosub82% 

1628 printems:printize=si 

1618 printtab(2)a®(ze)itimaze/iä:for 
j=1t098 

1828 iftleithenprintrn®s"Taste"rfs:p 
oke198,9:wailti198, 1:90sub?69 

1638 next 

1648 ifa®(ze)=chr®s(42)theni11?8 

1639 ze=ze+l 

1668 gotoldiß 

16578 rem RRRHÄRRRRRRRRRERRERÄNRRRRRR 
1689 rem append - daten anhaengen # 
1699 ren PTR 
1788 printchrs(147):905ub829: gosubi 
778: ze=ze-i 

1718 gosub889: gosub?98: printtab(2)c 
ms: printc4stab(2)a®(ze) 

1728 ze=ze+l:printtab(2) 1]: pokel98,% 
: poke631,34:pokel98, 1: pokei9,64 
1738 inputas(ze):pokei9,B:printchrs 
{13)3 

17998 ifas$(ze)=schrs(42)then1769 
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Mixed Datei 


1758 goto1?728 

1788 print:gotos4% 

1778 ifze=3@dtheni18?% 

1788 printtab (2) rn$si®s"Datensaetze 
bisher: "str$s(ze-1) a3#a3sa28rfs$ 

1798 printtab(2)" Letzter Datensatz 
wird angezeigt"ireturn 

1888 rem KRHHÄRRKRRRRRRRKERNKKRRRRR 
1818 rem KRRRRRKRRRRR disk-fehler * 
1828 rum KRHRRRRRIIINTTRIII IHN RR 
1839 openi1,8,1S:input#1,a,b#,c,d 
1849 ifa<t>ßthengosub?89: fori=1t0598 

Sınexticlose2:closei:icms="":90t047% 
1858 closei 

1868 return 

1872 gosub2@4@: printhesc4sc3ernssis 
"Keine Daten im Speicher ! "rfs:got 
0428 

188% rem KRRRRRRRRRKRKKRTIIIIII NN NR 
1898 rem KA RRR daten loeschen * 
19228 ren KERRHHRHRREEIHHHIHIHHIHHIHHNN 
1919 gosub2Q@48: print!iprinthestab (2) 
c4srn®" Daten loeschen "aSsa5sa5sa5s 
r+® 

1928 print:iprinttabt(2) "Sind Sie sic 
her (j/n) ?":gosub?98 

1939 gets 

1949 iflS="j"theni9?9@ 

19593 iflse"n"theng?g 

1968 gotol939 

1978 fori=sitozeiasti)=""inexticme=" 


1988 print:printtab(Z)rns®" 
Arbeitsspeicher ist jetzt 

leer.": fort=1t020898: next 

1998 goto4?8 

2298 VEN el a uni was arten near are are ar 
ker nnnn.."irem 4d spaces 
2218 pokeZi1,8:poke214,19:sys59648 
2228 fori=itolß:printlzsj:inext 

2239 return ' 

22423 printelSchr#s(176) |: fori=dto36: 
‚printchr@(P6) Jinextiprintehrs(174) 
22352 tori=dtoze 

2248 printchr®(125)tab(38)chr#(125) 
2272 next 

2282 printchrs(173) 1: fori=dto3s:pri 
ntcehr#(96)Jinextiprintchr#(189) 
2252 return 

2122 gosub2249: gosubBlß:gosubEdd 
2118 print:printtab(i@)rn#"Text/Zah 
lendatei"rfs: print 

2122 printtab(9)" 1 = Neueingabe" 
2132 printtab(9)" 2 = File laden" 
2142 printtab(9)" 3 = File speicher 


2152 printtab(9)" 4 = File anzeigen 
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2168 printtab(9)" 5 = File addieren 
[} 


2178 printtab(9)" 4 = File erweiter 

n" 

218% printtab(9)" 7 = Drucker-Rouin 

e" 

2198 printtab(9)" 8 = Ende" 

2288 print:printtab(?)" 9 = Umschal 

ten auf " 

221@ BE IRERBNEIA TREE? 

2228 getas 

2238 onval (ak) 90t02289, 2399, 2469,25 

39, 2630, 2800, 2899,30819,47%@ 

2248 90102228 

2259 rem KRRRRRKRTRNKTTRITTII III: 

2260 rem KAHRHRKRRRRER neueingabe + 

2272 rem KRRRRTKETIIIIIIIIIIII IT 

2288 printcl#tab(2)c4erns" Neueinga 

be eines Files "rf#:g90sub?9% 

2279 gosubBRd: gosub?F% 

2388 input"File-Name! 

thenn=® 

2318 print"Sachbegritftf...."} 

b$(n) 

2328 

2338 
(n) 

23489 nen+i 

2358 goto231% 

236@ rem KRÄRRKKRRHRRHRTHTNHTHT INN 

2379 rem KRRARKKRRRIRR File laden * 

2388 rem KRRRRRÜRÄERRKRRKERKKRTNKTRRE 

2379 printelsd26rns" File laden "r+f 

s £ 

2488 

+18 

2418 open2,8,2,f18+",s,r" 

2428 input#2,n 

2438 fori=dton:input#2,sbs(i): input 

#2, zti)inexticlose2 

2448 goto219Q8 

2458 rem ERHRHRHHHEHHHHHHRHHHIHNN 

2469 rem KHARKRRRH File speichern * 

2478 rem KRRKIRITITIIIITII III INN 

2488 open2,8,2, "89: "+F10+",8,W" 

2499 print#2,n 

2598 fori=ßton:print#2,sbs(i):print 

#2, z(i)inext:iclose2 

2518 goto2iAR® 

2328 rem HRHRRRRHRHRRHRRHHRIHHHIHHIHNN 

2530 rem KHK File anzeigen * 

254% rem KRRRRRKRRKRRKRRKRTRIIRTTNR 

2558 printel®d2srn®" File anzeigen 
"rt 

235648 print"File-Name 

2572 iffl6=""then2880 

2569 fori=ßdton-1:g$=strs(z(i)):!gosu 

b 3888 


"les ifn=308 
:inputs 


ifsb#!n)=chr#(42)then2198 
print"Menge/Betrag..."Jtinputz 


printc4sj :input"File-Name..."} 


"+18 


nn nn 


Mixed Datei 


259% 
ext 

3-1] 
2418 
2628 
263% 
2649 
245% 
264% 


printsb#ii)tab(35-len(g®))gsin 


sosub3Q2R 

gotoz12® 

rem RRRRRRRRRKKRRRRRRRRRRRRRERTR 
rem RRRRRRRRRRKRRNK addition * 
rem KRRRRRRRRRERRIKTIIITIIINT NN 
printel®d2$rns"Werte addieren" 
print"File-Name: "+#1% 

2678 ifflS=""then2888 

2689 audi tori=dton-IigMestreizii)): 
gosub3d88 

2698 printsbsti)tab(35- len (gs) gs: s 
ns+tz(i):oS=strs(e)inext!gosub3d8g 
2788 printtab (27) "----n ":printta 
b(35-len(g$))o$ 

2718 printd3stab(I9@)rns#" Ausdrucken 
j/n ? "’rts 

2728 getaß: ifaß="n"then2192 

2738 ifas="j"then2899 

2748 90t02729 

2739 gosub3822 

27648 goto212ß 

2778 rem BHRRRHRRRRHRRRRHHHHHRHHTNN 
2789 rem KRRRRKRRRRTIHRTNR append * 
2798 rem PRRRRHRERRHRRHRHRHRHRHHHEN 
28988 printcel®d2srns"File erweitern/ 
Daten anhaengen” 

2818 print"File-Name "+18 

2828 itffls=""then28698 _ 

2838 printsbstn-1),zin-i) 

28948 input"Sachgebiet "Isb#(n):ifsb. 

$S(n)=schr$(42)then2i98 

26858 input"Menge/Betr."iz(n) 

28649 n=n+i 

2878 9g90t0284% 

28688 printhesdSsc48s"Kein Daten im S 
peicher!":fort=1t0288@:next!goto21® 

[7] 


2898 printelederns" Drucker-Routine 
"assajsrts 

27AR printc4s" Aenderung der" 

2F18 print" Sekundaeradresse" 

292% printtab(19)c28"7"}:printv3sj: 
inputsa 

2932 printcderns"Wenn Drucker berei 
t ist, Taste druecken "rm 

2948 pokeil98,8:wait198,i 

2959 opend,4,sa:cmd4 

2969 print#4,Flsiprint#4:tori=ßton- 
li g®=str®s(z(i)):gosub3289 

2778 printtab (5) J:print#4,sbsti)tab 
(48-len(sb#(i))-lentgs))a$:next 
29788 q$=str$(s) :gosub39838 

2998 print#4,tab (32) "-------- "ıprin 
t#4,tab (48-l1en (gs) )gs$ 

3898 print#4:close4:9g0t02198 

s21@ poke53289, 14: pokeS53261,6:pokes 


m m — JM [[  — — 


46,19%: printcl$Sec$susjt:end 

02% printd2#rn®" Taste fuer '’MENUE 
’ "rt 

3232 pokeil98, Bimait19s, i 

3848 return 

SRßSß rem RRRRHHHHHRRRHHHRHHHH 
SRöR rem *%%* zahlen rechtsbuendig * 
2078 ren HHRRRRRRRHHRRHHRHRBRHHERNE 


3989 ez=len(g$) 
38978 
3188 
s118 
3128 
3138 
314% 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3248 
3258 


next 
dp=dp-ez-i 


return 

rem mixed 
rem 38F11 
rem 89167? 
rem 89287 
rem 82524 
rem Q@1Si 
rem 25882 
rem 


datei 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


Izelen(g#) -3:iflz<ithenlz=i 
forxseztolzstep-i 
ifmids(gW,x,i)=", "then3149 


ifx>lzthendp=dp-x 
ifx=sez-ithenge=gs+"g" 
ifx=lz-ithengs=egs+", 09" 


zsazmnzemmmmmumäd 
memory 
program 
variables 
arrays 
strings 
free (9) 


zaezam 
zem= 
zu=m= 
zamz 
zunz 
zsz== 


MONDLANDUNG 


Seite 65 
Dieses Spiel simuliert die 
Landung eines Raum- 


schiffes auf der Mond- 
oberfläche. Angegeben 
wird folgendes: 
Sinkgeschwindigkeit in 
ft/sec 
Höhe in ft/sec 
Resttreibstoff in Liter 
Fallzeit in Sekunden 
Sollte die Sinkge- 


schwindigkeit negativ er- 
scheinen, steigen Sie auf! 
Bei Eingabe von Ziffern 
bremsen Sie, bei Eingabe 
von Fünf bleibt die Ge- 
schwindigkeit konstant. 
Gelandet werden muß 
mit weniger als 15 ft/sec, 
sonst zerschellt Ihr Raum- 
schiff. Ist der Treibstoff 
verbraucht, stürzen Sie 
leider ab. 


GALAXISMÜULL 


Alarm!!! Sie werden von 
Müllstücken angegriffen. | 
Das haben Sie nun von 
Ihrem Flirt mit der Frau 
des Oberbefehlshabers, 
der Sie neuerdings für die- 
se unwürdige Aufgabe, 
dem Einsammeln von 
Müllstücken, einsetzt. 
Pech für Sie, daß einige 
davon von der krytoni- 
schen Untergrundorgani- 
sation P.R.O.S.T. vermint 
worden sind. Stoßen Sie 


mit diesen, auf dem Radar 
gesondert angezeigten, 
Müllteilen zusammen, wer- 
den Sie nie mehr mit 
Frauen Ihrer Oberbefehls- 
haber flirten können. 
Doch noch leben Sie, 
noch sind Sie in Besitz 
Ihres krytonischen Abfall- 
jägers und besitzen die 
Möglichkeit, dem Tod im 
Müll zu entgehen. 

Nutzen Sie Ihre Chance!! 
(auch wenn es keine gibt). 


71 


Galzax i smiüNlLlT 


i& rem galaxismuell ==ezzemnzsa=m20032 


z@ rem (p) commodore welt = 
a2@ rem 2222 ReRnREERSaBEmRSuRumzZmnnumm 
48 rem (c) by = 
S® rem ph. bertschg = 
6® rem = 
78 rem version 4. ) ‚SGz/ascii = 
88 rem 8832 + 1539/8258 = 


98 rem szzmaszoszzsezzsmusemzueasome 


18% pokeS9467, 17: poke$9446, 51: pokeS 
9464,98 

118 pu=ß: tis="099008" 

128 df$=schr® (166): printehrs(142):i= 
g:1t=337688: clrs=chr8(19):scrdSechrst(il 
7): g9osub838 

138 poke59467, 17: poke59446,51: poke 
9464,8 

148 aseclir$+terd®s+crds:bssechrs(29) +c 
hr#(29) 

1538 forn=2to24: a$=aß+bs+tcerdSinext:a 
semids(as,i1,?71)sossechr#s(i8) irs=chrs 
(146) 

168 jl=i 

172 pg=ß 

188 x=32768+728 

198 nmel 

2829 oe=4& 

218 x1=32768+948 

228 p=8 

238 tk=9 

248 a=78& 

259 0=8 

268 z=-79 

278 al=7? 

288 zi=81:1a=ß 

ZzF#@ tm=d: pm=d 

388 q=zintirndt1)%*8) 

si® ifg=eithenifa=?8thenx=x+t1lia=77:z 
z8l:xlexi+tlial=?8:zi=-79:g0sub?78 
328 ifg=e2thenifa=?7?thenx=ex+lia=78!z 
=-?9: x1=x1l+tliai=?7?:z1l=81l:gosub??% 
3389 ifz=8ßthenzi=-79:al=?78 

348 ifz=-79thenzi=81:a1=77 

35% x=ex+tzipokex, alo=o+nminm=l 

36 ximxi+ziipokexi,ai 

378 1f0>?Sgoto41 

38% ifx132768+248theng=el:goto31® 
3978 1fx>32768+4@ftheng=2:g0t032% 
488 goto39R 

4198 ren ve ss uni nedd 
ifz=-79thenzi=-80:al= 
ifze8lthenz=89: a=?77:9 
z=80: a=?7?:zi=-80:a1l=78 
printclr$as 
printelrsasj:ifp=ithenp=d:gotod 


qli=sint(rnd(1)*8) 


488 itqgi=ithenifa=?8thena=??: ze8d: a 
i=78: z1=-8Q0:xex-80:xi=x1+Bß 

4978 itqgi=2thenifa=?77thena=?8: z=-89: 
al=s?7ız21=89: x=x+8Q0: x1=x1-88 

sag ifz=88thenzi=-88: a1l=78 

S18 ifz=-Säthenzi=84: al=?77 

528 e=(x1-248-x+89)/89:1l=x+(int(rnd 
(1)te+2)*89) -89 

53@ j=int(rndt1)*9) 

54@ ifj=3thenn=43: g0t 0388 

558 jfj<Z2thenn=87: g90t03588 

569 ifj>öthenn=32:9g0t038% 

578 n=oe 

589 ifpu*X367>2988@@thenifpm=dgotolls 
[%] 
59% 
[-117] 


ifpeekt1)<>32thend3® 
pokel,n:siflasithengosub1228 

618 printcelr$tab (15) "punkte: "puX56? 
628 printelrstab (55) "zeit: "midstti 
5,3,2)" * "rightsttis,2)" 

639 x=xtzipokex,a 

64% xlexirzi:pokexi,al 

659 ti=t:ig=peek (151): pokeS9454, Mi if 
g=178thent=t+89@ 

668 ifg=189thent=t-1 

678 ifgeilß2thent=t+l 

68% ifg=184thent=t-8% 

698 ifpeektt)=?7?orpeek (t)=?8orpeek 
t)=4dthengosub?89 

788 ifpeektt)=8?thenpoke5r4654 ,288:p 
u=sputrl 

718 ifpeek(t)=43thenpu=spu+t2:poke594 
64,148 

728 ifpeek(t)=93then1298 


738 poket, 62: poketi-1,32 

748 ifxi32768+2498thengl=el:p=ligotod 
[= )) 

758 ifx>32768+352@thengi=2:p=1:goto4 
68 

768 gotod4aR 

778 pokex, a: pokexi,al:inm=2ireturn 
788 forop=8t0255step2: pokeS59464,0p: 


next: forop=255t0o9step-2:poke39484,0 
p:next. 

798 printchrs(147) 

88% print"versager "j:pokeS9464,tk:! 
tketk+tjliiftk=25ßthenji=-1 

818 iftk=9Pthenjli=i 

828 gatosa% 

838 printelrsi:forim=eitoS6d: printdf 
Si:next 


ntehrs(147):crdsj 
868 printtabt24)chrstliß)".oneanuen 


878 printtab(26)chr#s(i8)" gala 
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Das unabhängige Gommodore- Magazin 
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KOMMT REGELMÄSSIG Eu IHNEN INS HAUS 
WICHTIGE RECHTLICHE 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr”” 
Kiosk nicht beliefert wurde? Kein Probiem! Für 
ganze 30 DM liefern wir Ihnen per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kommi dann pünktlich ins Haus. 


Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für sechs Ausgaben, 
wenn: ihm- nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO SERVICE-KARTE 


CBMICW 


Ich nehme zur Kenntnis, 
daß die Belieferung 

erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


CBM/CW 


Abo-Service 

Special 

Postfach 1107 

8044 UNTERSCHLEISSHEIM 


sechs Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 
Gebrauch machen. chen vor Ablauf kündige, läuft 
Bitte senden Sie mir bis auf Wider- diese Abmachung automatisch 


ruf ab sofort jeweils die nächsten weiter. 


Coupon 
Ja, ich möchte von Ihrem Angebot 


Name (3) 
Vorname 

Straße/Hausnr. 
Pi/Ort 


Ich bezahle: 
D per beiliegendem Verrechnungsscheck 


D) gegen Rechnung 

OD bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 
Kontonummer : 
Bankleitzahl 
(steht auf jedem Kontoauszug) 


Unterschrift 
Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


Unterschrift 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spettbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post - Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


CW/CBM 


Anzeigenabteilg. Far 
Postfach 1107 Straße/Hausnr. 
8044 Lohhof PLZ/Ort 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


‘Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 


Brief. Aber bitte mit‘ Druckhbuchstaben oder in ' 


Schreibmaschinenschrift! 


Und: Einschließlich Ihrer Adresse und/oder Tele- 


fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 


ACHTUNG: WICHTIGER HINWEIS! 


Wir veröffentlichen nur Kleinanzeigen privater In- 
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serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir ‘versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab- 
hängig! 

Wir behalten uns.vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu- 
läßt. 


PROGRAMMSERVICE 


sermit bestelle ich 
Se Listings dieses Heftes auf 


«ASSETTE(N) DISKETTE(N) 

“ur den VC 20 = DM 15 () für den VC 20 = DM 25 {) 
für den C 64 = DM25 i y für den C 64 = DM 40 k ) 
für C 16/116/Plus 4 = DM 25 3 für C 16/116/Plus 4 = DM 40 (.) 
für den 128 PC = DM 15 3 für den 128 PC = DM 25 r’ 


Zutreffendes bitte ankreuzen! 

Ich zahle: 

per beigefügtem Scheck / Schein ( ) 
Gegen Bankabbuchung am Versandtag ( ) 
Meine Bank (mit Ortsname) 


Meine Kontonummer 


ne ni ee une re ee ee ee ee 


Dia ur vr ar var Dar vr var Bu Dur ur Bu Dur Bu Dr Dur Dur Dur Bar Bar Bar BE ya Bar Bar ar Zr Zr Zur Baer Zr Bar Bar Be a Be Be Zu Zu Be Zu zen 


Meine Bankleitzahl .......::2sercereun0. 

MOrDSME iu ae nee NENNE nn a a a Re 
Ste:/Nre 24a: as 0 em ae PLZLOM uns sn a ak 
Hiermit bestätige ich, Ihre Verkaufsbedingungen gelesen zu haben und zu akzeptieren. 

Unterschrift... ..... Dr N a RE I I Fa Dr ae na ae an ee alten 


Bitte ausschneiden und einsenden an 
COMMODORE-WELT i 
SPECIAL-KASSETTENSERVICE 
Postfach 1107 

8044 Unterschleißheim 


LESER 


GEWINNEN SIE EINE 
COMPUTER UHR! Und zu- 
sätzlich eventuell noch ein 
großes Commodore-Buch. 
Oder ein Paket Disketten. 
ODER AUCH EINEN 
COMMODORE-DRUCKER 
— ODER EINE DISKET- 
TENSTATION! Wie? Sie 
werben einen Abonnenten. 
Dann haben Sie auf jeden 
Fall schon die Computer- 
Uhr gewonnen. Zusätzlich 
verlosen wir unter allen, 
die mitmachen, jeden Mo- 
nat vier weitere wertvolle 
‘Preise. Und alle sechs Mo- 
nate gibt es einen Haupt- 
preis unter allen, Abo- 


Werbern zu gewinnen. Al- - 


so: Mitmachen. Mitgewin- 
nen. 


Ja, ich mache mit beim 
Abo-Wettbewerb. Ich habe 


als neuen Abonnenten der 
COMMODORE WELT 
geworben. 


Der neue Abonnent war bis- 
her noch nicht Bezieher die- 
ser Zeitschrift. 

Als Prämie erhalte ich nach 
Eingang des Abo-Entgeltes 
auf jeden Fall eine Com- 
puter-Uhr, wie abgebildet, 
und nehme zusätzlich noch 
an der Verlosung des Mo- 
nats sowie der halbjährli- 
chen Hauptpreise teil. Mir 
ist bekannt, daß der Rechts- 
weg bei den Verlosungen - 
ausgeschlossen ist. 

Meinen Preis senden Sie an 


Straße/Hsnr. ..ezeeneannnenen 
PLZ/Ort....... Eee 
(Bitte ausschneiden und zu- 


sammen mit der Abobestell- 
karte einsenden!) 


Nr. 4/86/ April 
Das erste deutsche MSX-Magazin 


2  MSX: 
REVUE | DERSTANDARD 
FÜR FREUNDE FUR IHREN 

PRIVATEN PC 


DER KOMPATIBLEN 


DM 5,80/0S 49/SFR 5,80 


IM TEST: 
Yamaha 


c\X5 


SERVICE: 
Welcher 
Drucker 
für MSX? 


IM TEST: 
Text- 
verarbeitung 


SERVICE: 
Basic- 
Befehle 


IM TEST: 
Joy- 
sticks 


SERVICE: 


Über 20 
Seiten MSX- 
Listings 


Gaelaxismiüäll 


is - mueı)ı ” 

889 printtab(264)chr&t1ß)".zuceennnn 
898 la=39: forjh=1toS: poke231, la:pri 
ntelrschr#s(?): la=slar3Q@inext:poke594 
64,8 

9289 printelrsijifortta=sito9:printerd 
Sjinextttasprintchrst(15) 

18 printelrsisforttb=ito2l:!printer 
di inextttb:printtab?9chrs(143) 

928 printelrs 

938 printtab(&) "sie sind als komman 
dant der krytonischen raumflotte st 
rafver-" 

94% printtab(6) "setzt worden! ihre 

neue aufgabe besteht darin den raum 
muell" 

959 printtab(ö)"der sich in dem pla 
nquadrat angesämmelt, hat zu entfer 
nen!!!" 

96% printtab(6) "achtung!-einige mue 
Ilstuecke sind noch mit sprengstoff 
ver-" 


978 printtab(6)"sehen!-ein zusammen 


stoss waere das ende von ihnen! 

98% printisprint 

998 printtab(?)"i. raummuell < 0 > 

= 567 punkte "print 

1888 printtab(?)"2, raummuell <£ + > 
= 1134 punkte ":print 

i81@ printtab(?7)"3. raummuell mit s 


prengstoff { . > = @ punkte und ihr 
tod !* 

1828 wait1358, 1: pokel58, 8: printchrst 
14?) 

1838 printcelrs 

1848 printtab(37)08", 200." 

1858 printtab (37 )0o8"...8...* 

1858 printtab(37)0o8"......."iprint!: 

print 


1879 printtab( I MoW". er En 


nn ae a een Oma aie 
Li 


1888 printtabt IMos"...4...'"rE".20 


ET a RENTEN =). Sure are Per 
H 


1898 priattabl I Mo". .2oue PB ann 
Pe ET 


1188 printiprint 

1118 printtab(37)08". 2202." 

1128 printtab(3I) 08"... 2.2.” 

1139 printtab(3Mo8".ouunna" 

114% wait158,1:pokeiS58,8:printelrsc 
Ir$chr$(14?):return 


1168 iftm=ithengoto37g 

1178 ij=int(rnd(1)#15) ti Fi j=3gotoll 
9 

1188 gotoS59d 

1198 f=x+237: pokef+1,31:pokef+161,3 
i:pokef+t2,64: pokef+162,64: pokef+83, 
1-17] 

1289 pokef+3,73: pokef+1643, 75: pokef+ 
83,93: pokef +84, 6: pm=el:la=i!gotoS9d 
1218 remis: 


return: iv=eint(rnd(1)%*7) 
ifivzilthenfc=8$ 
ifiv=2thenfco=-89 
ifiv>2thenfe=® 

t=t+fc 

en LEER TSORERRS 
(t)=4öthengosub?84 

1288 poket,S@:return 

1298 fort1=8t0255: pokeS59464, ti:inext 
:fort1=255toßstep-i:poke59454,tiıne 
xt 

1308 printehr&(147)J: forttc=1tol3:p 
rinterd®jinextttc:printtab (39) "noch 
einmal?" 

1318 printtab (28) "("os"j"rS"a / "o% 
In’r$"ein)" 


1328 getvs:ifvße" ij "gotoldd 

1338 ifvs="n"thenend 

1348 goto1328 

1359 rem galaxismuell =======:==8832 
136% rem 831743 bytes memory .. 
1372 rem 804382 bytes program gr 
138% rem ARGARO bytes variables == 
139% rem 2800088 bytes arrays == 
1498 rem 09688 bytes strings == 
1418 rem 827441 bytes free == 
1429 rem szsmamzz2szss==2=2emzemmummoamuam 


ENGLISCHE 
VERBEN 


Das Programm gibt Ihnen - 
ein englisches Verb in der 
deutschen Übersetzung. 
Sie müssen nun der Reihe 
nach dessen Stammfor- 
men (natürlich in Eng- 
lisch) eingeben. Nach je- 
der Eingabe muß 
>Return< gedrückt wer- 
den. Sind alle drei Stamm- 


auf dem Bildschirm aus. 
Für ein neues Verb muß 
eine beliebige Taste ge- 
drückt werden, dann wird 
ein neues Verb abgefragt. 
Nach Beendigung des Pro- 
gramms, d.h. nach Durch- 
lauf aller Verben erstellt 
der C16 Ihre Fehlerquote 
nach den zu erreichenden 


formen eingegeben, gibt 


Punkten (685) und errech- 
der C16 die Musterlösung 3» 


net die Schulnote. 
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Verben Englisch 


185 rem verben englisch 
{p) commodore welt = 


48 rem {c) by 
h-j turban 


7@ä rem version 3.5 49z/ascii 
88 rem ciö/ciiö/plus4 + 1531/1541 


188 c4&=chr$(17):c3$=chr$(29) 
rn$S=chr$(18)!rf$=chrs$ (146) 
128 +a$=chr$(139@):#b$=chrst131) 
he$=chr$ (19) 

148 forg=1t05: q5$=q5$+c4$:nextg 
158 forgq=1t03: q3$=g93$+c3$:nextq 


188 vol 8 

178 scnhelr 

188 for x= 1 to 23 
198 read m$ 

288 char 1,X,x%,m$ 

218 next 

228 for w= i to 4 

238 for s= 1 to 3 


248 for x=1 to 3 
259 sound 1,596,5:sound 2,516,5 
268 sound 1,596,5:sound 2,516,5 
278 sound 1,572,1@:sound 2,572,18 
next x 
298 sound 1,897,25 !sound2, 8364,25 
next s 
sound 1,118,25:sound2, 383,25 
next w 
338 print chr$t142):rem 
grossbuchstaben 
348 print chr$(27)+chrs$(82)!rem esc 
ape r 
358 rem flash und reverse mit contr 
ol 
368 printrn$tfa$"anleitung"rfs$chrs$(i 
sl): print 
378 for m=ito1l4@d:next 
388 print"es wird ihnen ein deutsch 
es" 
398 print:print"verb gegeben." 
489 print:print"sie muessen nun der 
reihe nach" 
418 print:print"die stammformen ein 
geben." 
428 print:iprint”nach jeder stammfor 
m druecken" 
438 print:print"sie die return tast 
e. n 
448 print:print"beim dritten mal er 
scheint" 
458 print:print"die musterloesung. " 
458 print:print"um ein neues stichw 
ort zu bekommen" 
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478 print:print"druecken sie eine t 
aste." 

4358 printiprint"jetzt auch!!!" 

499 getkeyms$ 

588 trap 2568 

S18 vol8 

528 print chr$(2?) +chr$(82) 

538 print"S" 

548 m$="-":for x=1 to & 

S5d m$=m&$+tm$:inext 

568 printrf$fa$"unregelmaessige ver 
ben":printchrs(131) 

578 print:!print"wenn sie stoppen wo 
llen 

print"dann druecken sie run/sto 


printhe$:rem home 
printgqS$g3s$ 
printchr$(27)+chrs$(84) 
print chrs$(19) 

read 3$,b$,c$,d$ 

printds 

input al$s:sound 1,499,25 
input bi$:sound 1,499,25 
input ci$:sound 1,499, 25 
if ci$=c$ then p=pt+1 

if al$=a$ then p=pt+i1 

if bi$=b$ then p=p+1 

7/1@ sound 1,598,25 

print 38,b$,c$,d$ 

738 getkeyds$ 

748 scnhcelr 

758 goto 2874 

788 char1,25,2, "note!" 

778 char1,32,2,n$ 

89 char1,25,4, "punkte!" 
char1,32,4,p$ 

898 goto 698 3 

data, ,u,n,r,e,9,8e,1,m,a,e,5,8,i 


828 data v,e,r,b,e,n 

rem verben 

848 data arise,arose,arisen,erheben 
859 data awake, awoke, awaked,erwache 


869 data backslide,backslid,backsli 
d,zurueckfallen 

872 data bear,bore,born,tragen 

889 data beat,beat,beaten,schlagen 

878 data become,became,become,bekom 
men 

998 data beget,begot ,begotten, (er)z 
eugen 

918 data begin,began,begun, beginnen 
728 data behold,beheld,beheld,erbli 
cken 

938 data bend,bent,bent,beugen/bieg 
en 


—, ,PFPFPFPFeeäääää——6—äöä„ä__i_ ee -—-—__—__,[ 


Verben Englisch 


49 data 
ben 

758 data 
anflehen 
958 data 
778 data 


bereave,bereft,bereft,bera 
beseech, besought ,besought, 


bid,bade,bidden,befehlen 
bid,bid,bid,bieten 

788 data bind,bound, bound, verbinden 
778 data bite,bit,bitten,beissen 
19988 data bleed,bled,bled,bluten 
181% data blow,bleu,blown,blasen 
19828 data break,broke,broken,breche 
n 

1838 databreed,bred,bred, "sich verm 
ehren" 

1848 data bring,brought,brought,bri 
ngen 

1958 data broadcast,broadcast,broad 
cast,senden/tv 

1888 data browbeat,browbeat,browbea 
ten,einschuechtern | 

1878 data build,built,built,erbauen 
19888 data burn,burnt,burnt,brennen 
1998 data 
eren 
1198 
1118 
1128 
1138 
n 
1149 
1158 
en 
1188 
en 
1178 
1188 
1198 
iden 
1298 
1218 
1228 
n 
1238 


data 
data 
data 
data 


buy,bought,bought, kaufen 
can,could, ‚koennen 
cast,cast,cast,abwerfen 
catch,caught,caught, fange 


data 
data 


chide,chid,chidden,tadeln 
choose,chose,chosen, waehl 
data cleave,clove,cloven,spalt 
data 


data 
data 


cleave,clave,,festhalten 
cling,clung,clung, kleben 
celoth,clothed,clothed,kle 


data 
data 
data 


come,Ccame,come, kommmen 
cost,cost,cost,kosten 
creep,crept,crept,krieche 


data 
1249 data 
1258 data 
e-machen 
126% data dive,dived,dived,springen 
/tauchen-nach 

1278 data do,did,done,tun 

1288 data draw,drew,drawn, zeichnen 
1298 data dream,dreamt,dreamt, traum 
en 
1398 
1318 
1328 
1338 
1348 
1358 


cut,cut,cut,schneiden 
dare,dared,dared, wagen 
deal,dealt,dealt,geshaeft 


data 
data 
data 
data 
data 
data 


drink,drank,drunk,drinken 
drive,drove,driven, fahren 
dwell,dwelt,dwelt,wohnen 
eat,ate,eaten,essen 
fall,fell,fallen, fallen 
feed, fed, fed, fuettern 


burst,burst,burst,explodi 


1368 
1378 
fen 
1388 
1398 
1498 
ern 
1418 data fly,tlew,flown, fliegen 
1428 data forbear,forbore,forborne, 
unterlassen 

1438 data forbid,forbade,forbidden, 
verbieten 

1448 data forget, torgot,forgotten,v 
ergessen 

1459 data forgive,forgave,forgiven, 
vergeben 
14688 data 
verlassen 
1478 data 
ren 
14838 
en 
1498 
1598 
1518 
1528 
n 
1538 
1548 
1558 
n 
1568 
1578 
1588 
en 
1598 
fen 
1698 
1618 
1628 
1638 
1648 
cken 
1658 
1568 
1678 
1688 
1898 
iegen 
1788 
en 
1718 
1728 
1738 
1748 
1758 
1768 
1778 


data feel,felt,felt,fuehlen 
data fight, fought, fought,kaemp 


data find, found, found, finden 
data flee,fled,fled,fliehen 
data fling,flung, flung, schleud 


forsake, forsook, forsaken, 
swear ,swore, 5worne, schwoe 


data freeze,froze,frozen,frier 
data 
data 
data 
data 


get,got,got,bekommen 
give,gave,given, geben 
hang, hung, hung, haengen 
hang, hanged, hanged, hencke 


data 
data 
data 


have,hase, had, haben 
hear,heard,heard,hoeren 
heave,heaved, heaved,hiefe 


data 
data 
data 


go,went,gone,gehen 
hew,hewed, heun, hacken 
hide,hid,hideden, versteck 
data hit,hit,hit,schlagen/tref 
data 
data 
data 
data 
data 


hold,held,held,halten 
hurt,hurt,hurt, verletzen 
keep,kept,kept,behalten 
kneel,knelt,knelt,knien 
knit,knitted,knitted,stri 


data 
data 
data 
data 
data 


know, knew, known, kennen 
lade, laded, laded,beladen 
lay,laid,laid,legen 

lead, led,led, fuehren 
lean, leant,leant,neigen/b 
data leap, leapet, leapet,spring 
data 
data 
data 
data 
data 
data 
data 


leave,left,left,verlassen 
lend, lent, lent,verleihen 
let,let,let,lassen 
lie,lay,lain,liegen 

lose, lost, lost,verlieren 
make,made,made,machen 
may,might, ,koenhte 
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Verben 


1788 
17978 
18088 
1818 
1828 
1836 
1849 


data 
data 
data 
data 


data 
data 
data 
1859 data 
1858 data 
/gehen 

18728 data 
1588 data 
sten 
1899 
1998 
19718 
1928 
1938 
1949 
eden 
1958 
1988 
1978 
1988 
1998 
teln 
2898 
2818 


data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 


data 
data 


Englisch 


mean,meant,meant,meinen 
mow, mowed ,mown,maehen 
pay,paid,paid,zahlen 
put,put,put,stellen/legen 


read,read,read, lesen 
rend,rent,rent, zerreissen 
ride,rode,ridden,reiten 
ring,rang,rung, klingeln 
rise,rose,risen, aufstehen 


rive,rived,riven,reissen 
roast,roasted,roasted,ros 


run,ran,run, laufen 

saw, sawed,saun,saehen 
say,said,said,sagen 

see ,sau,seen,sehen 

seek ,sought ,sought,sehen 
seethe, seethed ,seethed, si 


sell,sold,sold,verkaufen 
send, sent,sent,schicken 
set,set,set,stellen 

sew, sewed, sewn, naehen 
shake, shook,,shaken, schuet 


shall,should, ‚sollen 
shear,sheared, sheared, (sc 


hatf)scheren 


za28 
2938 
n 
2849 
2958 
ZzaIs8 
2978 
2888 
2998 
2188 
m" 
zi118 
N 
2128 
2139 
ziag 
2158 
en 
Z218&8 data 
2178 data 
bieren 
z188 data 


data 
data 


data 
data 
data 
data 
data 
data 
data 


data 


data 
data 
data 
data 


shed,shed,shed,vergiessen 
shine,shone, shone, scheine 


shoot ‚shot ,shot ‚schiessen 
show, showed, shown, zeigen 
shut,shut,shut,schliessen 
sing, sang,sung, singen 
sink,sank,sunk,sinken 
sit,sat,sat,setzen 
slay,slew,slain,erschlage 


sleep,sliept,slept,schlafe 
slide,slit,slit,rutschen 
smell,smelt,smelt,riechen 
SOoW, SoWed, sown, saeen 
speak,spoke,spoken,sprech 


speed, sped, sped,beeilen 
spell,spelt,spelt,buchsta 


spend,spent,spent,spenden 


/verbringen 


2198 data 
ufen 

2296 data 
n 

‚2218 data 
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spill,spilt,spilt,ueberla 
spit,spat,spat,aufspiesse 


split,split,split,spalten 


2228 data 
ndern 
2238 data 


verbreiten 


22998 data 
ngen 

22598 data 
2288 data 
n 

2278 data 
/stechen 
2288 data 
heln 
2298 
23299 
ver 
2318 
ken 
2328 
eihen 
2338 data 


data 
data 


data 


data 


spoil,spoiled,spoilt,plue 
spread,spread,spread, aus/ 
spring, sprang, sprung, spri 


stand, stood,stood, stehen 
steal,stole,stolen,stehle 


stick,stuck,stuck, stecken 
sting,stung,stung, aufstac 


stink,stank,stunk, stinken 
strew,strewed,streun,stre 


strike,struk,struk,streic 
string, strung,strung, aufr 


strive,strove,striven, "si 


ch bemuehen" 


2338 data 
en 

2358 data 
fegen 
2358 
2378 
en 
2334 
2398 
ri 
2999 
2418 
ken 
2428 
eihen 
2438 data 
2449 data 
sen 

24598 data 
reten 
295% data 
2478 data 
ragen 
2488 
en 
2494 
2598 
2518 
2528 
er 
2538 
2548 
iben 
2558 
2568 
2578 


data 
data 


data 
data 


data 
data 


data 


data 


data 
data 
data 
data 


data 
data 


swear ,Swore,sworn,schwoer 


Ssweep, swept,swept,kehren/ 


Sswim, 5Swam, swum, schwimmen 
Swing, swung, swung, Schwing 


take,took,taken, nehmen 
teach, taught, taught,, lehre 


tell,told,told,erzaehlen 
think,thought,thought,den 


thrive,throve,thriven,ged 


throw,threw,thrown, werten 
thrust,thrust,thrust,stos 


tread,trod,trodden, (auf)t 


wake,woke,woken, aufwecken 
wear ,‚nore ,worn, -kleider-t 


weave,wove, woven, (ver)web 


weep,wept,wept, (be)weinen 
"ill,would, ‚werden 

win, Won, won, gewinnen 
work, worked, worked,arbeit 


wring, wrung, Wwrung,wringen 
write,wrote,written,schre 


rem ende der verben 
print chr$(14)+chrs$(82) 
print"sie haben von 685 punkte 


——— ee ee nn 


Verben Englisch 4 Frage &%. Antwort ı 


print 


in (in 


wenn» 


5285 if p=@ then 


2828 if n>öthen 


end 
if p=efthen 


if n>öäthen 


p$=str$tp) 
n$=str$(n) 
goto 768 

rem 
rem 
rem 
rem 
rem 
rem 
i rem! 
rem 


12A?? 
8176 


unregelmaessige verben c 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


printp, "punkte geschafft":prin 


n=5:390t0o 269% 
n=int (685/ (p%1.3)) 

n=6 

if n<i then n=l 

print"das entspricht der 
print:printspc(5)n 


note" 


n=ss6:goto ZIG. 
n=inti585/(p%1.3)) 

H=&6 

if nil then nel 


memory 
proaranm 
variabies 
strings 
arrays 
free 


u 


IE ir 36 
1) 


ie u 
Po 


Dieses Spiel ist ein Basic- 
Programm ohne Pokes 
(es läuft daher auch auf 
anderen CBM-Computern 
— obwohl es für den C64 
geschrieben ist)! 

Frage & Antwort ist au- 
Serdem ein Spiel, bei 
dem man hundertprozen- 
tig etwas dazulernt! 
Mitspielen können 3 — 10 
Spieler (Alter egal). 

Ein Spieler muß immer 
die Fragen und Antwor- 
ten eingeben, die anderen 
müssen dann der Reihe 
nach die richtigen Ant- 
worten erraten. 

Für jedes zu erratende 
Wort bekommt ein Spieler 
1000 Punkte, von denen 
aber pro angefangene Se- 
kunde und pro angefan- 
sene Minute, die er zum 
Erraten braucht, 100 
abgezogen werden. 


Weiß ein Spieler eine Ant- 


'wort nicht auf Anhieb, 
. so kann er den Computer 


maximal 3mal um Hilfe 
bitten. Für jede Hilfe be- 
kommt der Spieler zu- 
sätzlich 250 Punkte abge- 
zogen. Gibt er etwas 
Falsches ein (oder vier- 
mal Hilfe), dann erhält 
erO Punkte. 


Die erreichte Punktzahl 
wird jedem Spieler auf 
ein Konto gutgeschrieben. 
In einer Auswertung 
(Namen sind alphabetisch 
geordnet) sieht man dann 
den aktuellen Spielstand, 
den man natürlich auch 
auf Diskette absaven kann, 
um das Spiel zu einem 
späteren Zeitpunkt wie- 
der fortzusetzen (durch 
Laden des alten Spiels). 


ld rem frage & antwort===========54 
zZad rem (p} commodore welt ts = 
Sg rem Szszmz22SSzzzssmzszemesmsmemene 
4d rem (c) by andreas, thuemmler = 
sg rem in. = 
se rem = 
-@ä rem version 2.9 49z/ascii = 
Sg rem cöd4 + 1539/1541 = 
928 ran Fresse use 
idea c2&=chr$(@18):cI3$=chr$(146) 

119 c4#=chr$1932):cI$=chr$(817) 

124 c&E=chr$t145) 

LEG +E=" frage: "sas=" antwort: " 

1439 c?’becl&rc9H$rc343$tc2$ 

ı1SG fort=itod:c3$=c8$trc6$: next 

1898 fort=1t03:c9$=cCP9$tcT$: next 

179 printe?schr$(142)tab(11)" frage 


& antwort " : 
186 printce2$tab(4)" (c) 1785 by and 


reas thuemmler "c5$ 
176 print"...altes spiel von disk 1 
aden {j/n)"c5$ 


zz getct:ifcs=""then2dg 


z1@ ifc$="j"thengosub93@:ans=""igot 
oasd 
229% d$=" wieviele mitspieler: "igosu 
b239 


23@ sp=vallb$):ifspiZorsp>iläthenpri 

ntleft$tc8$,4):goto22d 

229 printc?$" bitte namen eingeben 

: ET 

zSs@ fort=itosp 

246 d$s=" spieler"+strstt) 

278 gasubSSginistt)=bE:iflentinistt) 

‚>Zithenprintcs$:!goto2?d 

254 printedstinext 

278 93=1:ford=rtoeifort=1tosp 

sag iflert$tnilstt),L)=chr&td)thenna 

E(g)=nils(t)igsgti 

3ig nextt,d 

22@ printcei$cI$c4$c2$" 

lfe" 

8 ds=c3$+f$:90s5ubSI4: fr$=bE:iffrs$ 
*"thengosub1999: g0t035@ 

341G dsS=c3i$+a$: gosubSFd: an$=b&: ifans$ 

=" "then34d 

359 gosub?39:o=l:!s=1 

259 t=inttrndt1i)%sp)+L:ifo=ithenntil 

)=t!90t0399 

374 x»=Q:tord=ltostifnitd)=tthenxelein 

ext 

3848 ifx=dthens=stlintd)=et:iptt)=Lded 

:3otoI4C#9 

394 0=9:g0t036d 

499 printo?st$ 

419 printeSscdsfrs" 

öthenprintcis; 


% "c3$" - hi 


Priitlentfrs$)<3 
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Frage &% Antwort 


428 print" beantworte so schnell wi 
e moeglich die" 


439 print" frage, "nastt)"!" 

448 print" wenn du hilfe brauchst, 
dann gebe ue2g" € 

459 print" ein! die zeit laeuft!"it 


i5=" 059000": 9$=""19=0 
469 d$=-c5$+a&: g0osubE5g 


478 ifb$="_"thengosub??%@: onggoto46® 
‚469,459,489 
488 ifb$<>ansthenprintc?$" falsch! 


"ıptt)=ptit)-198008: 900599 

499: printc?®$" richtig! 

S88 zt$=mid$(ti$,3,2)+":"+rightstti 
5,2) 

S18 ptt)=ptt)-val(tis):ifptit)<dthen 
pit)=@ 


528 printc9$" benoetigte zeit: "zt$ 
: gosub?38 
S3@ ifs>spthen53g 


548 goto3sd 

SSsg fort=itosp:pitt)=piltt)+p(t)intt 
I)=@:next 

S5@ printc?s$" 
4$3n&C5$ 


richtige"a$c5$:printc 


578 printc4$c2$" auswertung!: "c3$du 
schr$(157)". durchgang”"c5$ 

ss@ fort=1itosp 

SQ ge=""ig=2@-len(nastt)) 

sag printcdsnastt)spc(g)" hat"pitt) 


"punkte"inext 

sid printcSsc4sc2#"w"c3$"eiterspiel 
en * "c2$"n"c3$"eues spiel %# "c2$’e 
"eag"nde" 

628 printeS$c4Sc2$"s"c3$"piel auf d 
isk absaven" 

639 getc$: ifc$=""thend3g 

8648 ifc$=e"w"thendu=sdu+1l:!g0oto32g 
859 ifc$="n"thenc=eiigotosrg 

5666 ifc$="e"thenc=e?2:gotod9ß 

678 ifc$="s"thengosub919: goto56d 
838 goto63# 

678 printeS®" wirklich (j/n)" 

7988 getc$:ifc$=""then?9ag 

718 ifc$="j"thenoncgotosg, 9978 

728 g90t056% 

738 printc5$" -taste-" 

748 getc$:ifc$=""then?49 

5@ return " 

769 end 

778 98=9$+C5$: printg9$:g=9+1l:!ifg>3sth 
enrb$=fr$:return 

788 printc4$; :p(t)=ptt) -25g:Fford=it 
olent(an$) 

798 ifmid$(lans,d,1)=" 
;:g0ot0o83g 

8sg4 a=intirnd(1)*2) +1 
‚sig ifa=slithenprint"."5 


82 


"thenprint" " 


828 
338 


ifa=2thenprintmid$(an$,d,1)5 
next:print:printchr&(19)c9$ 
848 return 
s5g printd$c5$ 


868 b$="":input" ";b$ 


878 itb$="*#"then?PPg 

889 itfb$=""thenprintcöscä$:gotosäd 
878 return 

9ag dE=c?$+" name des files: "!gosu 


b85g: return 

iA gosub?@g:open2,8,2,"8:"+b$+",s, 
w"iprint#2,duscer$; 

928 fort=itosp:print#2,na&tt);cr$ip 
itt)ser$j;j:nexticlose2:g0t0978 

938 gosub9@d:open2,8,2,6b$+",s,r"it= 
1:input#2,du 

948 input#2,na$(t),pitt) 

959 itfst=ö4thenclose2:sp=t:goto9?g 
9658 t=t+1:90t0948 

978 openi15,8,15:input#15, 21,28, z2,z 
3:close1l5:printc5$z13 2% 22} 23:gosub 
739 

952 return 

7A printc?$" ende "c5$:end 

1988 readfr$,an&:iffr$="*"thenresto 
re:igoto1006 

1@g1@ a=sint(rnd(1)%2Z)+1l:ifa=ithenide 
& 
1824 
1838 
1946 
19459 
1gsg 
1978 
1888 
ayern 
189@ dataeinwohnerreichstes 
desland,nordrhein-westfalen 
116@ datachem. zeichen fuer 
1119 datachem. zeichen fuer 
cu 

1128 datachem. zeichen fuer zink,zn 
11328 dataoesterreichisches bundesla 
nd,burgenland 

1148 dataoesterreichisches bundesla 
nd, salzburg 

1159 dataoesterreichisches bundesla 


printce?$f$c3$"... 
print" einverstanden 
getc$: ifc$=""then19g4g 
ifc$="j"thenreturn 
s3otolgedg 

rem fragentantworten(beispiel) 
datagroesstes dt. bundesland,b 


"£r$c5$ 
(fn)® 


dt. bun 


blei,pb 
kupfer, 


nd,tirol 

1159 dataschweizer kanton, graubuend 
en 

117@ dataschweizer kanton,thurgau 
1159 datagroesster us staat,alaska 
1179 datazweitgroesster us staat,te 
YES 5 

12298 datahauptstadt von texas,dalla 
s 

121% datahauptstadt von colorado,de 
nver 


—- tk m Te] ee 


Frage &%. Antwort 


2228 datavon welchem us staat ist s 
alt lake city die hauptstadt,utah 
1238 dataaugenblick, nu 

1223 datamorast,schlamm 

258 datamusde,schlapp 

1258 datamuehelos,einfach 

1278 datanaturduenger ,kompost 

1258 datanotlage,dilemma 

1279 dataokkult,magisch 

13959 databitte,anliegen 

131% datakommune, gemeinde 

1328 datakollektion, sammlung 

1239 datavasserfahrzeug, ruderboot 
1348 datavorstand,direktion 

1359 datavorherrschaft,hegemonie 
1359 datavorfuehrdame ,mannequin 
13794 datavorwand, ausflucht 

1389 dataerzieherin, gouvernante 
1398 dataerleuchtung, inspiration 
1498 dataerotik,liebeskunst 

1418 datamannstollheit,nymphomanie 
1428 datameereskunde,ozeanologie 
1436 
rzaehler 

14494 dataerbgut,desoxiribonucleinsa 
eure R 

145@ datagrundstueckvermittler, immo 
bilienmakler 

1458 dataspanische 
rische inseln 

1478 dataungebundenheit, selbststaen 
digkeit 

1458 datawestliches buendnis,nordat 
lantikpakt 

1498 dataerster roemischer kaiser,a 
ugustus 

15@@ datafrueherer name des ersten 
roemischen kaisers,octavian 

151@ dataroemischer gott des weines 


inselgruppe,kanra 


‚bachus 

1528 datain deutsch ’peeping 

tom’, spanner 

1538 dataauf englisch ’kater’,tomca 
€ 


1548 datahoechster berg der welt,mo 
unt everest 

15528 datagroestes land der 
sr 

15594 datazweitgroestes land der erd 
e,kanada 

1578 datavolkreichstes land der erd 
e,china 

155@ datakleinster planet 
m sonnensystem,merkur 
15978 datagroesster planet 
m sonnensystem, jupiter 
1829 datasynthese, stoffaufbaureskti 
on 


erde,uds 


in unsere 


in unsere 


datastrahlungsmessgeraest, geige 


‚1998 


1619 datanalyse,stoffabbaureaktion 
1628 dataoxidationtreduktion,redoxr 
eaktion 

1638 datazweig des buddhismus, zen 
1646 datazweig des buddhismus,amida 
1558 dataheiligtum der mohamedaner, 
kaaba 

1669 dataabschritte des koran,suren 
1578 dataverbuendeter deutschlands 
im 1. weltkrieg,tuerkei 

1538 datawer waren die entdecker am 
erikas,die wikinger 

1598 datawvie nannten die wikinger a 
merika,winnland 

1798 databeruchuten karolingerkoeni 
g,karl der grosse 

17168 datawer schlug die araber in f 
rankreich zurueck,karl martell 


1728 dataerster mensch auf dem mond 
‚neil armstrong 

1738 datalat. der mensch, homo 

1748 datadeutsch ’cave canem !’,hue 


te dich vor dem hund ! 

1758 datagriechischer goettervater, 
zeus 

17588 dataroemischer goettervater, ju 


‚piter 


17?& dataeinheit der gewichtskraft, 
newton 

17898 datafarbe, purpur 

1798 datafarbe,lila 

1599 datafarbe,gruen 

1818 datateil von grossbritanien,wa 
les 

1828 datateil von grossbritanien,sc 
hottland 

1838 datateil von grossbritanien,en 
gland 

1842 datainselgruppe 
lukken 

1854 datainsel von 
1858 datainsel von 
o 
1578 
1658 
mus 
1578 datamonotheismus,eingottglaube 
1988 dataheiliger, fluss der hindus, 
ganges 

1718 data%,* 
192d rem frage 
17385 rem 38911 
174@d rem A6196 
1959 rem 09168 
19588 rem 
1972 rem 86182 bytes 
17858 rem 324997 bytes 
rem S=====2==2=2=2=5==S522SS2222=== 


in so-asien,mo 


indonesien, java 
indonesien,borne 


datadritte weltmacht,china 
datareligion in indien,hinduis 


& antwort=========654 
bytes memory 
bytes program 
bytes variables 
bytes arrays 


MASTER 


LISTINGS 


VIDEO- 


Dieses Basic-Programm ist 
für alle gedacht, die meh- 
rere Videokassetten des 
Systems VHS besitzen 
und öfters Filme aufneh- 
men, um sie aufzuheben. 
Was man aber zum ‚„Kon- 
servieren von Filmen“ be- 
nötigt, ist eine übersicht- 
liche Liste der Banddaten, 
um z.B. feststellen zu 
können, auf welche Kas- 
sette man am besten’ei- 
nen bestimmten Film auf- 
nehmen kann oder ein- 
fach um die Übersicht 


über seine Kassettensamm- 


lung zu behalten. 
Videomaster II arbeitet 
"mit Drucker, d.h. man 
kann sich z.B. eine Liste 
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ausdrucken lassen. Alle, 
die keinen Drucker be- 
sitzen, können sich die 
Daten auch auf dem Bild- 
schirm ansehen. 


“— Zuerst muß man alle 


Bandlängen, die man ver- 
wendet der Größe nach 
in die Datazeile 540 ein- 
geben, wobei aber am 
Ende der Zeile der Mal- 
punkt stehen bleiben 
muß. 

Beispiel: 


(Die zur Zeit aktuellen 
Bandlängen sind schon 
in diese Datazeile einge- 
tragen; man muß die 


Banddaten höchstens 
noch ergänzen.) 

— In die Datazeilen ab 
Zeile 2930 muß man 
dann die eigentlichen 
Banddaten eingeben, wo- 
bei man wiederum die 
Zeile mit dem Mal- 
punkt nicht löschen 
darf. 

Man gibt der Reihe nach 
die Kassettennummer, 
die Bandlänge und den 
Freiraum (in Min.) ein: 


Data 1, :180, 95 
Data 2, 90, 30 
Data B, 240, 100 


Data „Cl, „30, y® 

Kass.Nr. E-30 OMinuten frei 
Dabei sollte man die Kas- 
setten schon nach der Nr. 


ordnen (z.B. 1,2,3,4,5,6 
oder A,B,C,D....) 

(Im Programm sind schon 
einige Banddaten als 
Beispiel eingegeben.) 

— Nun startet man das 
Programm. Der Computer 
liest nun die Daten (diese 


‘ werden versch. Variablen 


zugeteilt) und überprüft 
sie auf logische Fehler. 
Sollte ein Fehler auftre- 
ten, dann wird die fehler- 
hafte Datazeile gelistet 
und das Programm be- 
endet. 

Ansonsten kommt man in 
das Hauptmenü. 


Bitte lesen Sie weiter auf Seite 88 


|Videomaster 


19 rem videonmaster ============2==44 
28 rem (p) commodore welt ts = 


48 rem {c) by andreas thuemmler 


78 rem version 2.9 408z/ascii 
Sg rem c-64 + 15234/1541 + drucker = 


199 clr!sys455iil 

118 ci1$=chr${t14?):c2$=chr$ (9372) 

129 c3$=chr${81?):c4$=chrs$s(145) 

139 cI5$=chr$(834) !c6$=chr$(gi4) 

148 c?E&=chr $(@15):cC9$=chr$(616) 

158 rvS=schr$(@18):r0&8=chr&(146) 

168 hb$=chr$(154) :b1$=chr$(831) 

178 p2$=c3$+c3$+c3$: p3$=chr$ (19) 
188 his=erv$ifort=1to4gshilsshilste2s: 
nextihl$=shlstros 

178 h2$="banddaten":fort=1t049:h3$= 
h3$+chr$(175) next . 
288 h4$=c2$+trv$+t" einen moment !ı " 
218 h5$s=" auswertung "!ihöss="datum: 
":h?$=chr$1{42) :h8$=chrs$ (58) 

229 h9$=rv$+" printed by videomaste 
r 2 tc) by andreas thuemmler (1985 
ya 

238 h9&=h9&+tleft$(hi1$,23) 

248 Fi1$=c2$+rvS+" #1 "+rog+" - 
259 #38=c2$+rv$+" #3 "+rosı" - " 
288 3$=C2$+rv&+" #5 "+4rose" - 

278 +?7E=c2$trvS+" #7 "rose" - 
289 dis=mids$(h1$,2,32):pl$=leftstdi 

5,4) 

274 ji$=ci$+c3$+C2E+t Hr VS$+H"d"+rost "ru 

cker/"+rv$+"b"+ro$s+"ildschirm" 

304 j2&=rv$+" kassette ":j3$=rv$+" 
davon ":34$="unbespielt"!j5$="bespi 

elt" 

sla jö$=" in " 2 

326 11$=rv&$+" gesamtspieldauer"+j6$ 
338 12$=j3$+j4$+j6$ 

348 13$=rv$+" spieldauer und anzahl 
der baender: " 

356 15$=rv$+" anzahl der videokasse 
tten: " 

368 16$=j3$5+j5$+j6$ 

378 17?$="min: ":18$="h (ca.): ":19$ 
="o _ u 

3848 31$=j3$+j58$5+17$ 

370 92$5=j4$+j6$+17$ 

4998 deffnctx)=sintix/öd+.5)/1 

418 rem %* bildschirm ** 

428 poke53289,14:poke53281,6:printe 
1$c3$chr$(142)chr$(8) hbsh4s 

438 printc3$c2$rv$s"ich verarbeite d 
ie daten" 


449 rem *%variablen dimensonieren** 
435g t=5@8:dimnrset)idimbiltt)idimb?t 
t):dims3(39) :dims4 (39) :t=1 

469 rem %* versch. bandlaengen ** 
479 data30,66,96,129,180,195, 208,21 
9,248, -1 

459 rem %%* bandlaengen einlesen #* 
49% reada:ifa=-ithenw=t-1:t=8:gotoS 


Se68 itaf3dora>24fdtheni3se 

Ss1@ s3tt)=a:t=t+1:g0oto498 

S28 rem *%* banddaten lesen *%* 

539 t=t+lireadnr$(t),bitt),b2(t) 
S49 itfbilt)=-ithensS5=t-1!s6=s1l-52:8 
A=fnce(sl)isesfnc(s2) !s9=fnc (56) got 
(e1-7-12] 

S52 ifbitt)<3Q@orbi tt) >24@dtheni 334 
568 ifbZ(t)<@dorb2t(t)>bilt)then1388 
57?@ itlen(nr$(t)) >3theni3se 

589 si=s1l+tbi(t):s2=s2+b2(t) 

S7E6 gosubsi1f 

629 goto53g 

slf Ford=itow 

828 ifbilt)=s3(d)thens4(d)=s4(d)+i 
639 next 

648 return 

659 rem *%%* hauptmenue #* 

668 printci®rv$s5" videomaster (c) 
1985 by a. thuemmler "jhls; 

678 printrv$" programm 

2 - "5h2$}", system vhs ";h1l$3 
BEN PEIBTENET a nn 
NERUS, VEN ne ee ee IH 
8678 print 

788 printc3$tf1$h2$" anzeigen/ausdru 
cken" 

718 printc3st3$"freiraum suchen" 
728 printce3$fS$chr$(157)h3$"anzeige 
n/ausdrucken" 

739 printc3$f7$"ende" 


748 printe3s$c2srv&" #2 "ro$" - prog 
ramm sichern" 

758 printc3$c2$rv&" #4 "ro$" - "h2$ 
" eingeben" 


768 poke198,4 

779 geta$: ifa$=""then??& 

78d ifa$=chr$(133)then1329 

799 ifa$=chr$(134) then267?& 

Sg ifa$=chr$(135)theni126d 

s1g ifa$=schr$(136)thenilöd 

828 ifa$&=chr$(137?)theni144g 

Ss3g ifasschr$(138)theni142g 

848 q4g0t077?4 

ssg rem %* warten auf taste #* 

8588 print:print" -taste-":poke198,6 
:wait198,1l:return 

878 ifpeek (198) <>@thenpoke1l98,8:wai 
t198,1:poke198,48 >» 


85 


« 


videconmnmasternr 


888 return 

8940 rem ** eingabe: datum %%* 

998 print 

1A at$="":input" datum (ttmmjjjj) 
"z;ats 


9248 ifat$=""thentas="":gotoFsd 

938 iflen(at$)<Sor len (at$) >8then99@ 
948 at=valtleft$l(at$,2)):itatilorat 
»31thenPFg 

958 at=val(mids(at$,3,2)):ifat<flora 
t>12then9F® 

968 at=val(mids(at$,5,4)):itati1985 
orat>25@8then99% 

978 tas=sleft$lat$,2)+". 
„2)+","+mid$(at$,5,4) 
988 printci$ireturn 

978 printcdsc94$:gotor1 
1088 rem %% eingabe:! kass.rnr. ** 
1818 print clS$:t=l 

1928 t$="":input" kassette nr. "5t$ 
1838 iflentt$) >3thenprintc4$c4$: got 
oleza 
1249 
1959 
1966 
1876 
1088 


"+mid$(at$,3 


ift$=""andvsitheni1128 

ift$s=""andv=2theni113d 

ift$=""andv=3thenil 11 

iftsenr$(t)then112@ 

ift=s5theni11dg 

18998 t=t+1l:gotol9?78 

11@@ printci$c3$c2&$rv&S" 

$" ist nicht in datas 
1119 gosub84d: onvgotodsß, 2214, 2218 
1128 x=t:printcei$ireturn 

1138 ifdfi>dthenprint#1,h9$ 

1149 goto1l1l1l® 

1158 rem %% ende %* 

1168 printci$chr$(9P)c3$c2$rv&$" ende 
"c38$ . 

1178 printce3$"load"cS$chr$(36)c5#$", 

8s"c4$ 

118g sys42115 

1198 rem **geraet eingeschaltet ?%* 

1288 openi1,il,i2:poke?48,185:print# 

1,i$:closel:poke?68, 139: printci1$ 
1216 ifst{>-128thenreturn 

1228 printc2$rv®&" geraet ist nicht 

eingeschaltet ! ":gosub8dd:gotods6sd 

1238 rem %%* fehlerkanal %* 

1249 open15,8,15:input#15,y1,y28,y3 
‚y4: elosel5: orintessyl; y2$; y3; ydıre 

turn 

1258 
1268 

1278 

1288 

12978 

1388 

1318 

1328 
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kassette "t 


rem %%* drucker/bildschirm 
printj1$:poke1l98,% 
geta$:ita$=""theni127?8 
ifas="d"then1?5@ 
ifag="b"then1S3?@ 

3otossd 

rem *%* drucker/bildschirm 2 ** 
printj1$:poke198,8% 


1 %** 


1339 getas:!ifa$=""theni133g 

1348 ifa$="d"then22dg 

1358 ifa$g="b"then193d 

1358 gotodssd . 

1378 rem %* fehler in datazeile *%* 
1358 z=peek (43) +2565%peek (64) 

1378 printci$c2$c3$rv&$" fehler in d 


atazeile nr."jziz$=str$(z) 

1488 printbl&"list"z$;5c4$hb$: pokel? 
8,8: poke631,13:poke198,1:5ys42115 
1414 rem *%* daten eingeben #* 

1428 printcil$:gosub8&d:tort=1told:p 
rintinext:z$="3088-":gotold4dd 


1438 rem *programm auf disk sichern 
1449 i1=-8:i2=-15:i$="i":gosubi2de 
1456 na$=""tinput" programmnanme "jn 
as 

1454 ifna$=""thend6® 

1478 iflen(na$) >läthenprintc4sc4Et:9g 
oto1l45@ 


1488 printc3$h4$:save"8:"+na$,8 
1498 gosub1248 

15@A@ printc3$c2$rv®S" 
":poke198,6 

1518 geta$: ifa$=""theni15i1g 

1528 ifat="j"then1549 

1534 goutodsg 

15949 printcd4$"..vnscerrennnnnn s 
1556 printced$c4Sc4S". z.verunenunn "c48$ 
c4$c4$c4#: 9001438 

1586 rem %%* auswertung anzeigen %* 
1578 printcl$c3$c2$rv&sh5$"der bandd 
aten: "c3$ 

1588 printc2$15$:printc3$c2$s35;c3$ 
1598 printc2$1l1$:printc3$c2$17$spc( 
4)si 
1548 
1618 
4)56 
1628 
1834 
4)s2 
164% 
1859 
1658 
1678 
1688 
1696 
1704 
1718 
1728 
1738 
1744 
1758 
brEg 
176% 
1778 


173€ 


nochmal (j/n) 


printc2$15$$5?7;,c3$ 
printcez2$1löd$:printce3$c2$1l?$5pc( 


printc-2$18$59;c3$ 
printc2$12$:printc3$c2$17$spc( 


printc2$18$s8 

gasubSsd 

printci$c3$c2$13$03$ 
tort=1tow 

ifs4tt)=öthenil?73d 
ifs4(t)=döthen1?3d 
printe2$19$53(t);5 
ifs3tt)<i1@öthenprintc2s; 
prinths$s4tt) 

next!gosub8609: gotoddf 

rem *%auswertung ausdrucken?%* 
il=4:12=@:i$=""igosubizZdd: gosu 


printh4$ 
open1,4,@:print#1 
print#1l,csth3sc2$h3&"videoband 


videomaster 


daten system vhs" 


17998 
1804 
151@ 
1828 
18538 
Ss$5? 
1544 
3$59 
1854 
Ss$s8 
1E-7-77] 
1876 
18354 
1892 
17a4 
1718 
1928 
1938 
1744 
1954 
1958 
1978 
17824 
1999 
Zac 


RENT 


2818 
2828 
2a38 
20448 
2956 
2984 
2478 
2438 
2898 
2196 
2118 
2124 
2134 
2149 
2158 
2168 
2178 
2186 
2196 
229% 
b998: 
2218 


iftas=""then131g 
print#1,c9$s"21"höstas 
print#1,h3$c7$ 
print#1,15$r08$55 
print#i1,1l1$rosc2$1?$&s1;h?$c2$1 


print#1,16$r0$C2$17$5645 h?$c2$] 
print#1,12$r0$c2$17&52;h?$c2$] 


print#1,13$hl$lefts(h1$,5) 

fort=iton 

irs4l&)=Gthenl92G 

sp$="" 

ifs3stt)<1@öthensp$s=c2$ 

print#1,19&s3(t)sp$sh8s$s4 tt) 

nextiprint#1,h9$ 

closel:!gosub3sd:gotossd 

rem %%* daten anzeigen ** 

v=l:g905ub10d1@ 

printc3$c28$j28$ 

printce3$c2$198$ 

printce3$c2$g1$ 

printc2$g92$ 

printc3$c3$c3$c2$rv$" + "rog" 
"rvS" - "ro$" - zurueck "3 

printrvs" _ "ro$" - menue" 

printp3$c3$ 

printtabt(i2)nr$(t) 

printc3$tab(4)bi(t) 

printc3$tab(2@)bi(t)-b?(t) 

printtab(20)b2tt) 

geta$: ifa$=""then2a7e 
ifa$="+"thent=t+1:g0oto2124 

ifas="-"thent=t-1:90t02126 

ira$="_"thendssd 

g3oto29?4 

ift<ithent=1 

ift>s5Sthent=s5 

printp3sc3$c3$tab (12) pis$ 

printc3$tab(4)pi1$ 

printcS$tab (28) pi$ 

printtab(2@)pis 

301029298 

rem *%kdaten ausdrucken!imenuert 
i1l=4:12=8: i$="":gosub1200:9gosu 

305ub25498:0pen1,4,8 

printcis$ h 

printfi$"..alle.kassetten..... 


printf3$"..bestimmte,. .kassette 
print#S$"..ab..kassıfnr.acccen. 
printf?$"..hauptmenue.cccccnen 


geta$: ifa$=""then22sd 


2278 ifa$=chr$(133)then2334 
2284 ifa$=chr$(134)then2378 
227@ ifa$=chr$(135)then2408 
2s0g ira$s=chr$(136)thenclosel:!g0t06 


zs1d goto2268 

2328 rem *%alle kass. ausdrucken** 
2338 printc1$c3$h94$c3$:g0osub2698 
2346 tort=1t055:90sub243@: next 

2358 print#1,h9$!90t02219 

2369 rem *%best. kass., ausdrucken** 
2378 printel$:v=2:d=d:gosub2599 
2389 gosub191@:gosub2439: d=1:!90t023 


2599 rem *%ab kass.nr. ausdrucken** 
2499 v=3:905ub1919:gosub259% 
2410 tort=xtos5:g90sub2439:next!goto 


2428 rem *daten ausdrucken unterr.* 
2438 print#1,cö6$h3$ 

2348 ifpeek (198)=dthen?2488 

2459 printc2$rv$s" unterbrechung / c 
trl=weiter " 

2458 poke198,6:waits53,4 

24? printcdasdiscds 

2486 print#1,j2$rosc2Z$nr$(t) 

za97g print#1,198$bl(t)53c?H$ 

2588 print#1,91$cö$c2$bil (t)-b2tt);c 


2518 print#1,928c6$b2 (t);3c?$ 

2528 return 

253@ rem *%* eingabe: ueberschrift * 
25948 print 

25598 ub$="":input" ueberschrift "zu 


2568 iflen(ub$) Y4dthen?5se 

257% return 

2589 printc4$c4$:90t02558 

2599 rem *%%*datum, ueberschr. ausdr. 
2809 iftas=""andubs=""then2s5g 

2618 print#1,c6$h3$ 

2528 ifub$=""then2s4g 

2638 print#1,ub$c?$: iftas=""then265 


2548 print#1,cö6$hösstasc?s 

26859 return 

Z2ö4@ rem **freiraum suchentt* 

2678 printcl$c3$:t=1:d=779 

2688 r=@:input" benoetigter freira 
um in min "jfr 

2698 iffr=Gthendsd 

27988 itfr<lorfr>24@thenprintc4$c4$: 
gotoZäsge 

2718 printci$c3$h4$:di=d 

2728 ifb2t(t)>=frandb2(t)<dthend=b2 
t):di=t 

2738 ifd=frthen2?768 

2748 ift=s5then27598 2a 
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vidcomaster 


2758 t=t+1:g90t02728 


276% printci1$c3$ 


2778 ifdiX>Qthen28g9 


2788 printrv$S"kein geeigneter freir 


aum mehr vorhanden!" 


2798 goto2848 


z888 t=di:printc2$rvs®" 
"238 
printc2$j2$ro$c2$nr$&t(t)c3$ 
printc3$c2$928$%d 

gesuchter freiraun: 


eigneter freiraun : 
2818 
2828 
2838 
"fr 

2844 
2858 
2864 
2878 
2584 
2898 
Zra8 
z718 
Zr2@ 
2938 
z744 
2958 
VArT=1G] 
2978 


printcs$" 


rem %% datas 
dataa, 180,11 
datab, 69,22 

datac, 184,5 
datad, 120,8 
datae, 96,5 

dataf,189,18@ 
datayg, 184,8 
datah,189,6 
datai,184,4 

dataj,126,4 
datak, 188,8 
datal,1898,8 


3osub8sd: gotodssf 
(beispiele) 


ZI88 
2998 
sage 
381g 
3g28 
3038 
32a 
3058 
S3gög 
Sso?7e 
3g5g 
SsE99 
s1A® 
sıld 


dataal,18@,5 
datab1,189,6@ 
dataci1,18@0,@ 
datad1,189,5 
datag1,180,8 
datar,-1,-1,-1 
videomaster 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


assri1l 
aa77a? 
ea2427? 
2ea5858 
802478 
821249 


bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


am besten 9e 


%% 


memory 
program 
variables 
arrays 
strings 
free 


Di: A. SE 
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Fortsetzung von Seite 84 


VIDEOMASTER 


— Fl 


— Videodaten an- 


zeigen/ausdrucken: 
anzeigen: 


Man wird zuerst nach der 
Kass.-Nr. gefragt, die man 
im Katalog ansehen will. 


(Gibt man nichts ein, 


dann befindet man sich. 


automatisch bei der‘. 


1. Kassette.) 


Von da aus kann man 


dann mit + und — vor- und 
zurückblättern (mit — ge- 


langt man wieder ins 


Hauptmenü). . 
Angezeigt werden jeweils: 
Kassettennummer, Band- 
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länge, Frei in Min., Bei- 


spiel in Min. 


ausdrucken: 


Zuerst wird man nach dem 
Datum gefragt, dann nach 


einer Überschrift. 


der 


(Will man kein Datum 
oder keine Überschrift in 


Liste haben, dann 


drückt man jeweils nur 
Return.) 

Nun kommt man in ein 
Untermenü. 


F1-Alle Daten ausdrucken 
Alle sich in den Datas be- 
findlichen Daten werden 
ausgedruckt. 


Untermenü: 


F3—-Bestimmte Daten 
ausdrucken 

Man wird nach der Kasset- 
ten-Nr. gefragt, die man 
ausdrucken will. (Return 
=zurück zum Untermenü). 
Die Daten der Kassette _ 
werden ausgedruckt und 
es wird nach einer neuen 
Kassette gefragt. 


F5—-Ab Kass-Nr. aus- 
drucken 

Es wird nach einer Num- 
mer gefragt, ab der alle 
nachfolgenden Kassetten 
ausgedruckt werden sol- 
len. (Return=zurück zum 
Untermenü) 


F7-Zurück ins Haupt- 
menü 

Jedesmal wenn ein Gerät 
angesprochen wird (Druk- 
ker oder auch Floppy), 
dann wird überprüft, 

ob es eingeschaltet ist. 
Ist es ausgeschaltet, 

dann wird man aufgefor- 
dert, es einzuschalten. 
Will man einen gerade 
laufenden Druckvorgang 
unterbrechen (z.B. um 
das Druckerpapier in die 
richtige Stellung zu brin- 
gen), so hält man am 
besten die Space-Taste 
gedrückt oder drückt ir- 
gendeine andere Taste. 
Der Druckvorgang wird 
unterbrochen und erst 
dann wieder fortgesetzt, 
wenn man CTRL drückt. 
Ausgedruckt wird jeweils 
dasselbe, wie es auch 
schon beim Punkt Anzei- 
gen erwähnt wurde. 


F3—-Freiraum suchen 
Wenn im Fernsehen z.B. 
ein Film von 93 Min. Län- 
ge kommt, den man auf- 
nehmen will, so muß man 
nicht erst eine Kassette, 
auf der genügend Platz 
vorhanden ist, suchen: 
Man gibt die Länge des 
Films in Minuten ein. 

Der Computer sucht nun 
die bestgeeignetste Kas- 
sette, worauf man diesen 
Film aufnehmen kann. 
Sollten dann, auf irgend- 
einer Kassette genau 93 
Minuten frei sein, dann 
zeigt er die Kassetten- 
Nummer an. 
Ansonsten sucht er die 
Kassette heraus, worauf 
zwar mehr als 93 Minuten 


frei sind, dieser Freiraum 
aber noch am nächsten 
von 93 liegt. 

Es werden dann (zum 
Vergleich) der gesuchte 
Freiraum und gleichzeitig 
der bestgeeignetste gefun- 
dene Freiraum angezeigt. 
Sollte überhaupt kein 
Platz dieser Größenord- 
nung mehr frei sein, so 


“ zeigt dies der Computer 


mit einer Meldung. 


F5-Auswertung anzeigen/ 
ausdrucken 

Der Computer wertet die 
gesamten Banddaten aus 
und faßt sie zusammen. 
Das Ergebnis kann man 


-sich auf dem Bildschirm 


ansehen oder auch aus- 
drucken lassen. _ 

Beim Ausdrucken wird 
man nach dem Datum ge- 
fragt (Return=Datum 


‚wird weggelassen). 


Angezeigt, bzw. ausge- 
druckt werden: 
— Die Gesamtzahl der 
Kassetten 
— Gesamtspieldauer in 
h und Min (h=Stunden) 
— Wieviel davon bespielt 
und unbespielt ist in 
h und Min 
— Wieviele Bänder man 
von jeder verschiedenen 
Bandlänge besitzt (z.B. 
3xE-180, 2xE-240 usw.) 
Jedes Mal wenn nach 
Drucker oder Bildschirm 
gefragt wird, kann man 
durch Drücken irgendeiner 
Taste (außer D und B) wie- 
der ins Hauptmenü zu- 
rückgelangen. 


F7-Ende 

Das Programm wird been- 
det. Floppy-Besitzer kön- 
nen bequem durch Drük- 
ken von Return die Direc- 
tory einladen (da Load 
“6” 8 schon auf dem 
Bildschirm steht ). 


" F2—-Programm sichern 


Floppy-Besitzer können 
das Programm (nachdem 
sie z.B. die Daten ergänzt 
haben) auf eine Diskette 
absaven. Dazu muß man 
nur den Programmnamen 
eingeben.” 

Das Programm. wird 

dann mit diesem Namen 
abgesaved bzw.‚falls ein 
Programm mit diesem 
Bitte lesen Sie weiter auf Seite 93 


Kaufmann 


id rem kaufmann S====25=2====5=C16/p4 
28 rem (p) commodore welt _ = 
a8 rem ZZZESZSZZEESIIISmssemeseeceemememmeoms 
85 rem (c) by = 
Sg rem a.huebner on 
585 rem = 
783 rem version 3.5 49z/ascii = 
53 rem clö6/plus4+1531/1541+drucker= 
8 rem SZZZZZESESSI2=2s ms amemememm 
198 cl$=chr$(47):s1$=chrs$(3?2) 


119 zi$=chr$(45):z2$=chr$(641) 

128 z3$=chr$(164) : z4$=chr$(42) 

139 forg=ito2l:gi$=gi$s+zisinextg 
148 torg=1t025: 92$=g2$+zi$!nextgq 
159 torg=1t027:q3$=q3$+zi$:inextgq 
169 forgq=1t038: q4$=g4$+z3$:!nextgq 
178 forg=1t038: gdä$=q@$+si$:!nextg 
189 torgq=1t049: g5$=g5$+zi$:!nextg 
198 forg=1to47:g6$=g6$+zi$inextgq 
2838 forg=1t035:q7$=g?$+si$s!nextg 

210 gas=qas+z4$+g0$&+z4$ 

229 EDIOF 8,1 5 Enlor 4,13 

238 printchr$(159) 

248 close 4,4 

258 let c=8 

268 let sus=d@ 

278 printcl$:fort=1t048:print"*"j:n 
ext 

288 printgas 

298 print"%......programm zur erste 
llung von.....%*" 

sS88 printgas 

318 print"*......auftragsbestaetigu 
ngen.aeeesen un" 

328 printgas 

338 print"*%......rechnungen 
rscheinen.....%*" 
348 printgas 

358 print"%...:. 
EEE EI, 


368 printgas 


/! liefe 


‚mahnbriefen....:.. 


*";inext 

489 tor a = 1 to 3599 : next a : pr 
int"S" ; goto 2658 

378: 

s88 : 

S1@ rem eingabe 

528: 

5328 printcl$ : input"tagesdatum (tt 
mm. jjjj)";t$ 

549 printcl$ : input"anrede des kun 
den";jas 


SS5® printcl$ : 
chname";n$ 
S68 printcl$ : 
usnr."55$ 

S72& printcls ! 


input"vorname und na 
input"strasse und ha 


input"plz mit wohnor 


"aus 
Ss8g it a= 1 goto 2898 : if a=3 
goto 2938 
S7@ if ad = 1 goto 1488 
688 printcel$ : if wahl$ = "1" then 


input"lieferzeitangabe ca. ... 
ef$ - 


er 


818 printcel$ : if wahl$ = "1" then 
input"auftrags-nr.: "jaufs 
628 printcl$ : if wahl$ = "2" then 


input"rechnungs. -nr."jrs$ 

638 print"eingabe zur artikelbezeic 
hnung":printiprint 

648 input"anzahl der artikel 
) "scx$ 


(max.5 


658 if cx$ = "1" then gosub ?id:got 
o 788 

66B if cx$ = "2" then gosub ?71i9:gos 
ub?728 : goto 788 

678 if cx$ = "3" then gosub ?719:gos 


ub?728:g0sub?39:goto 788 

639 if cx$ = "4" then gosub ?19:gos 
ub729:g0osub?38: gosub?49:90t0788 

69 if cx$ = "5" then gosub ?71d:gos 
ub?29: gosub?38:gosub?48:gosub?59: go 
to?s@ 


378 print"*......adressaufklebern.. 28 printels 

EEE a 718 input"text artikel 1 "5b$ : ret 
388 printgas urn 

379 for t = 1 to 48 : print "*"j:ne 728 input"text artikel 2 ";5bi$: ret 
xt urn 

488 printgas 738 input"text artikel 3 "5b2$: ret 
418 print"*%.....7..C0opy by a. huebn urn 

er Feraeenk 748 input"text artikel 4 "5b3$! ret 
428 printgas urn 

438 printgas 758 input"text artikel 5 ";b4$: ret 
448 tor t = 1 to 48 : print "*"jine urn 

xt 768 : 
4598 print'* erstellt auf commodore 778 : 

plus/4..2.222.2.%" 788 printcis$ 

468 for t = 1ito49: print "X"5inext 798 print"eingabe zur artikelmenge 
478 printifor t = 1 to 498 : print " « » 
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898 if cx$ = "1" then gosub 859 : 9 
otordg 

si@ if cx$ = "2" then gosub 859: 9os 
ub8s9: got 090% 

8268 if cx$ = "3" then gosub 859:90s 
ubS49:gosub8?79: gotoF98 

838 if cx$ = "4" then gosub 859:905 
ub859: gosub879:gosub889: got 0998 

848 if cx$ = "5" then gosub 859:90s 


ub849: gosub87?9: gosub889: gosub879: 90 
to988 

85@ input"menge artikel 1";5oliretur 
n 

868 input"menge artikel 2";12:retur 
1) 

878 input”menge artikel 3’;593:retur 
n 

888 input”"menge artikel 4";f4:retur 
n 

898 input"menge artikel 5";yS5:retur 
n 

988 : 

918 printcls r 


928 print"eingabe zum einzelpreis j 
e artikel":print 

936 if cx$ = "1" then gosub 958: 90 
to1®5® 

9a if cx$ = "2" then gosub 9789:908 
ubP9B:goto1l9658 


958 if cx$ = "3" then gosub 989: 90s 
ub992@:gosub1898: goto 1268 
9A if cx$ = "4" then gosub 939:908s 


ub998:gosub1999:g0sub1810d: goto 196 
[7] 

978 if cx$ = "5" then gosub 989:905s 
ub999:90sub1989:gosub1Q19:9g0sub1928 
:gotoldäd 

988 input”’einzelpreis artikel "sel 
s:return 

978 input"einzelpreis artikel Z";se2 
s:ireturn 

1888 input"einzelpreis artikel 3";e 
3sireturn 

1818 input"einzelpreis artikel 4";e 
4s: return 

1828 input"einzelpreis artikel 5";e 
Ssireturn 

1838 : 

1948 : 

1858 : I 

1858 printcel$:printgSs: print 

1878 input"kundenversandkosten ";jvk 
1858 : 

189798 input"versandform "zjup® 

1186 input"zahlungsbedingungen"; z$ 

14.108. Bem SFr ee 

1128 rem berechnung der einzelnen w 
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a ——— HH — ——_— 


»i=v+tol 
x2=vt+t1l2 
x3=vV+93 
x4=v+f4 
x5=V+tyS 
aselstxl 
b=se2stx2 
c=se3stx3 
d=se4s%x4 
e=se5s5%x5 


BENEROFZIIER 


rem -------- 

xö=satbtc+tdte+rvk 

x7=x6%1809/114 

x8=26-x7 
printcl$:print:print:print:pri 


print " es erfolgt der ausdruc 


; printg2$ 


it wahl®$ 
if wahls$ 


"1" then open 9,9 
"2 then oper 4,4 


rem chr$(19)....sperrschrift 


print#4,chr$&(15)".. ses un a0. 


az aeBe RBB 2 BEE EEE ER nn nn. = 


PFIHTBISCHFELITI "0 au us re 


Brint#4,.chr 81.15) "eo n00s NER 


print#4,chr$t15)" 
print#4,chr${15)” 
print#4,chrs$(15)" 
print#4,chr$(15)" 
print#4.chr$(15)" 
print#4,chrs$(19) 
print#3,chr$t16)"döa";as$ 
print#4,chr&(16)"dä"sns 
print#94,chr$t16) "B65"55s$ 
print#4,chr$(15)" 
print#4,chr$t16) "GE" 5u$ 
print#4,chr$(15) : if ad=10g 


oro 3396 


1558 
1569 
1578 
1588 
1574 
1620 


print#4,chr${15)" 
print#4,chr$(15)" 
print#4,chr$(15)" 
print#4,chr$(15)" 

it ma = I then 1548 

rem schreiben rechnungsnr. 
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1819 if wahl$ = "1" then print#4,ch 
-Ss(i14)"auftragsbestaetigung nr.!: ” 
aufs 

282& if wahl$ = "1" then print#4,ch 
rs(15)"lieferzeit ca. .. "jlief$ 
15398 if wahl$ = "2" then print#4,ch 
rs(14)"rechnung-nr.:"jr$ 
1849 print#4,chr$(15)" 

18559 print#4,chr$(15)" 

1855@ rem kopfzeile 

1878 print#4,chr&(19);5 

1588 print#4,chrstlä)"s4r;tg" 

1879 print#4,chr$(15)" 

1788 if ma = 1 then 3818 

1719 print#4,chr$(15)" 

1728 print#4,chr$(15)" 

1738 print#4,chrs$(19)5 

1749 print#4,chr$t16) "ödbezeichnung 
";chr$(16) "25menge"s;schrs$(16) "4seinz 
el";schr$(16)"&57dm" 

1758 print#4,chr$(16) "4öpreis";chrs$ 
(158) "S9gesamt”" 

1769 print#4,chr$(14) q4$ 

1778 print#3,chr$(15)" 

759 print#4,chr$(15)" 

1774 if 

wahl$ = "2" then print#4,chr$(15)"s 
ie erhalten heute per ";jup$ 

1889 print#4,chr$(15)" 

1818 print#4,chr$t 16) "99---" 

1828 print#4,chr$(15)" 


1838 if cx$ = "1" then goasub 1899 : 
goto 2248 

184g if cx$ = "2" then gosub 1899:9 
osub1958 : goto 2248 

18598 if cx$ = "3" then gosub 1899:9 
osub19658 : gosub 2839 : goto 22498 
1858 if cx$ = "4" then gosub 1898:9 
osub1968 : gosub 2838 : gosub 2188 


goto 22448 

1878 if cx$="5" then gosub1899:gosu 
b1P68: gosub2A3@: gosub2199:gosub217R8 
:goto2248 

1889 print#4,chr$(19)" 

1898 print#4,chr$(16) "80"; bS$; 

19728 print#4,chr&(16) "25"; 

1918 print#4,using "HR"jolj; 

1928 print#4,chr$(16) "46"; 

1938 print#4,using "HHHRHH. HR -"jelsı 
1948 print#4,chr$(16) "69"; 

1959 print#4,using "HHHHH.HH-"ja ı 
return 

1958 print#4,chr$(16) "99";bis$35 

1978 print#4,chr$(16) "25"; 

1954 print#4,using "##"51235 

1979 print#4,chrs$(16) "46"; 

2898 print#4,using "HRRHR.HR-"je2s; 
2918 print#4,chrs$(16) "49"; i 


2928 
retur 
2938 
2948 
2854 
2968 
2978 
za34 
2898 
retur 
2108 
zi119 
zZi128 
2138 
ziı4g 
2158 
2168 
retur 
2178 
AR=T] 
zirE 
2298 
2218 
2228 
2238 
retur 
2248 


ee 


print#4,using "HHRBH.BR-"5b ı: 
n 

print#4,chr$(16) "098"5b28$35 
print#4,chr$(16)"25"; 
print#4,using "##"5933 
print#4,chrs$t16) "46"; 
print#4,using "HH. #H-"je3s 
print#4,chr$(16) "69"; 
print#4,using "HHHHR.HR-"jc ı 
n 

print#94,chr$stiö) "A@";5b38$3 
print#4,chr$(16) "25"; 
print#4,using "#H";f4;5 
print#4,chr$(16) "46"; 
print#4,using "HRRRH. HH -"jedsı 
print#4,chr&$(16) "69"; 
print#43,using "HHHRHH.HH-"Id ı: 
r 

print#4,chrs(16) "80"; b48$; 
print#4,chr$(16) "25"5 
print#4,using "##"5y5;5 
print#4,chr&(16)"468"3 
print#4,using "HRHHRR.HR-"jeöst 
print#d4,chrs$(168) "69"; 
print#4,using "HHHRER.HHR-"e ı: 
n 


print#4,chr$(16)"3@zzgl. versa 


ndkosten"; 


2258 
2268 
2278 
22828 
trag 
22978 
2398 
z318 
2328 
2338 
2248 
ingun 
2358 
2368 
satz 
2378 
2338 
2379 
2498 
fuer 
z416 


uns auf 


2428 
2439 
2448 
2459 
2469 
2478 
2488 


print#94,chr$(16) "69"; 
print#4,using "HHRRRH.HH-"Svk 
print#4,chr$(18)" 
print#4,chr$(16) "3ßrechnungsbe 
incl 14% must"; 
print#4,chrs$(16) "69"; 
print#4,using "HHHHH. #H-"ixö 
print#4,chrs$(16) "3@"gös$ 
print#4,chr$(15)" 
print#4,chr$(19)" 
print#4,chr$(16)"1ß8zahlungsbed 
g.ı: "jz$ 

print#4,chr$(19)" 
print#4,chr$(16)"29 %%%* must.- 
14% = dm"; 
print#4,chr&(16) "59"; 
print#4,using "HHHHR.HH-"5x8 
print#4,chr$(19)" 
print#4,chrs$(16) "85wir danken 
ihren auftrag "5 
print#4,chr$(165) "32und freuen 
ihren naechsten !" 
print#3,chr$(16)" 
print#4,chrs$(16)" 
print#4,chr$(16)" 
print#4,chrs(16)" 
print#4,chrs$(16)" 
print#4,chrs(t1@)" 
print#4,chr$&(165)"98volksbank . 
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2498 print#4,chr$(16)"2?kreissparka 
"sse een 
2588 print#4,chr&$(16) "55postgiroamt 


2518 print#4,chrsti6)"B@blz ..: 2... 


"ne 
“= 3 


2528 print#4,chr$(t168)"27blz 2... 11%: 


2538 print#4,chr$(id)"SSblz ... 11: 


2548 print#94,chr$(16) "ddkto: ses une 


2558 print#4,chr$st1ö)"27kto: zurun. 


2568 print#4,chr$t16) "S5kto: ..200.. 
=..." © close 4,4 : print"S” 

2578 if wahl$ = "1" then input”copi 
e der auftragsbestaetigung "jc$ 
2588 if wahl$ = "2" then input"copi 
e der rechnung (j/n)"jc$ 


2598 if c$="j"then 1338 (jelse259%8 
) 

2688 if wahl$ = "2" then input”’weit 
ere rechnungen (j/n)"5i$ 

2618 if i$ = "j" goto 5948 (Lelse 
2839) 

2628 if wahl$ = "1" then input"weit 


ere auftragsbestaetigungen 
2638 close 4,4 : return 
2648 if i$="n"then return 
2658 print"S"irem 
*%%menusauswah1l1X%%%* 
28568 for t = 1 to 98: 
ext 

2678 print"%.....menue - au 
"a = U 1 Da: ER, ie 

2888 printgsas 

2598 printz4sg?$g3$g?&s1$z4$ 

2788 printgas 

2718 printgas 

2728 print"* auftragsbestaetigunge 
Nenaaranlaea*” 

2738 printgas 

2748 print"* rechnung/lieferschein 
runs hr" 

2758 printgas 

2768 print"* mahnbriet..ec.cusiesnn 
EEE a BES RER au 

2778 printga$ . 
2788 print"* adressaufkleber...... 
ee ie" 

2798 printgas 

28929 print"* ende des programns... 
ae ee 

2818 for t = 1 to 948: 
ext 

2828 print:print:print:print:input” 
«».bitte waehlen sie...vc.erernae"3W 


92 


"zis 


print "*"sin 


print’: n 


ahl$ 

2838 let a=98: letma = 9: leta 

d=%8 

2838 if wahl$ = "1" then gosub 538: 

90102658 

2858 if wahl$ = "2" then gosub 538: 

goto2659 

28588 if wahl$ = "3" thena=satl|l 
: gosub 539 : goto 26559 

2878 if wahl$ = "4" then print"S" ı; 
goto 3399 

2586 if wahl$ = "5" then print"S"ig 

oto 3428 

2898 printcl$:for t = 1 to 49: pri 


nt"*"5inextiprint 
2988 print"%..20. 04 ,mahnbriet...u us 
TEE ia 
2916 for t = 1 to 48 : print"x*"5ine 
»t:printsprint:print"’bitte eingeben 


2728 input"mahnstufe..2a2seesenea"jMm 
ahns$ 

2938 input"rechnungs-nr.i.ceec... tr 
$ 


2748 input"erstdatum ’rechnung’ "5a 
r$ 
2758 input"mahnbetrag (dm)......"5b 
$ 


2988 printcl$:print:print:printspri 
nt"es erfolgt der ausdruck des mahn 


.briefes.” 


2978 printgSs 
2938 open 4,9% 5: 
29978 ma = 
3998 : 
BEI LEMRERKRRKRKRHKRKHRRKRRKRRIH RN 
39289 remt% text fuer mahnbrief %* 
SEE LER RKRKRKRKKRK RI KT T KIT TKIITT N R 
3249 print#4,chr&$(158)"Bibuchhaltung 
‚, kKontorne. & "ırs$ 
325g print#4,chr$(16)"Slmahnstufe = 
";mahns®s 
3988 print#4:print#4:print#4,chrsti 
6)"Sisehr geehrter herr "}n$5",":ipr 
int#4 
3278 print#4,chr$(1ö6)"@lleider muss 
ten wir feststellen, dass der unten 
genannte betrag" 
39339 print#4,chr&t16)"öinoch nicht 
bei uns eingetroffen ist. sicher ha 
ben sie vergessen" 
Ssg98 print#4,chr$(1ö)"B@ldie ueberwe 
isung vorzunehmen. ":!print#4:print#4 
3189 print#3,chr&tiö)"difuer eine b 
aldige erledigung danken wir ihnen 
schon im voraus.” 
3118 print#4:print#4:print#3 
3128 print#4,chrs$sti1ö)"dimit freundl 


let ma = & 
ma + 1 : 90t01389 


Kaufmann 


ichen gruessen" 

sis print#4,chrst 1) "01... us sen 
..."sprint#diprint#4:print#g 

3149 print#4,chrsti6)"Gl.osuunennn a 
:print#4:print#4:print#4:print#4 
s158 print#d4,chr$ti4)iprint#4,chrst 
is)'"Blaufstellwung" 

s188 print#4,chr$t(16) "B1"qi$:!print# 
4 

3178 print#4,chr$(15);jchr$(16)"@ire 
chnung vom "}jar$;chr$(16) "3ßrechnun 
g9s5-nri "irss 

3188 print#4,chr$t16) "57?betrag in d 
m us 

s198 print#4,using "HRHH.HH-")b$ 
3288 for t = 1 to 76 : print#4,chrs$ 
(18)"Bl-";inext 

3218 print#4:print#4:print#4:print# 
4,chr$(16) "@lanlage":print#4,chr&(i 
ar "Bl ------ " 

3228 print#4:print#4,chr$s(16)"Blrec 
hnungskopie" 

3238 print#93:print#4:print#4 

3248 print#d4,chrs$(16) "Alfalls der ä 
usgleich inzwischen erfolgt ist, be 
trachten sie"; 

s25@ print#4,chr$(16) "Sßdieses schr 
eiben" 

3268 print#4,chr&ti16)"öilals erledig 
t I"iclose 4,4 

3278 printcl$iinput”’copie des ausdr 


ucks (j/n) "jausdrus 

32898 if ausdrus = "j" goto 2989 ı qg 
oto 3278 

s2P@ if ausdrus = "n" goto 26558 
3388 for t = 1 to 48 : print"*"jine 
xt 


SIEG rom KRHRRRHRRRRHRRRTRRTTRI TR 
3322 print"*%......adressaufkleber.. 


aaa a8 8 Es 8 ze Rn 2 a = x" 

S3E3d rem KRHRERKRFERKKRKITITTTITTTNR 
3348 for t = 1 to 48 : print’x*"jiıne 
xt 

335@ opend,4 : let ad=g 


33568 print:print:print:printiprint" 


ihre eingabe bitte !":for t = i to 
28: print"-"jinext 

3378 for j = 1 to 596 : next j 

3388 \ 
print:print:print:ad = ad + 1 : got 
o 548 

3378 printcel$ : ad = GG : input"we 
itere aufkleber (j/n) "jaufkls$ 
34998 if aufkl$ = "j" then ad = ad + 


1:goto 5498 


sal@ if aufkl$ = "n" then close 4,4 
: goto 26598 
3428 for.t = 1 to 48 : print"*"jine 


EU 


3439 print"%......ende des programm 


EN x" 
344% 
xE 

3458 
atum = 
3458 


aenge = 


";t$ 


"69671 - 


i to 48: print"*"j:ne 
print:printiprintiprint"tagesd 


print:print:print:print”pgm.-1 
fre(x);5 


"in byte" 


3478 print:printchr$(1538):printchrs$ 


18% "..,.60PY By. 8 


S"iprintchr$1159) 


huebner 988/198 


3458 rem....printchr$(146) 


34994 for t = 1 
xt: print: print 
S3Seg end 

351% reem kaufmann 
3528 rem Q696?71 
3538 rem 143583 
35949 rem 
35580 rem 
3558 rem 
3578 rem 
3539 rem 


[71 07212]17]] 
245932657 


to 48 : 


bytes 


Bugggda bytes 
BEGREg bytes 


print"x";ine 


memory 
programm 
variables 
arrays 
strings 
fre (9) 
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nun NO 


wu un mm mm man mus mu mu mm Sum mn mc mom Anm au mm ame ar mus mem mean mu mn au wm uam 
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VIDEO- 


MASTER 


Namen schon auf der Dis- 
kette existiert, wird die- 
ses überschrieben. 

Hat der Computer das Ab- 
saven beendet, zeigt er 
den Disk-Status an und 
fragt, ob das Programm 
nochmals abgesaved wer- 
den soll (wenn man z.B. 
noch eine Sicherheits- 
kopie machen will). 
Drückt man irgendeine 
Taste außer I, dann kommt 
man in das Hauptmenü 
zurück. 


F4—Daten eingeben 

Hier werden die Datas 

von vorne gelistet. Drückt 
man dabei CTRL so kann 
man dann an dem Punkt, - 
an dem man Daten editie-. 
ren/eingeben will, leicht 
mit Run Stop anhalten. 
Die Daten gibt man dann 
per Hand in die Datazeilen 
ein (siehe Blatt 1 der An- 
leitung). 

Die Daten per Hand zu 
editieren bzw. einzugeben, 
ist zwar umständlich, 

aber dadurch habe ich nur 
kostbaren Speicherplatz er- 
halten wollen. 


(Ein Punkt “Daten editie- 
ren/eingeben‘‘ hätte wie- 
der mehr Blöcke gekostet 
und dann wäre das Pro- 
gramm zu lang gewor- 
den!) 

Videomaster I] ist ein 
„Floppy-freundliches 
Programm“. Es kann aber 
auch von Datasetten- 
besitzern eingesetzt 
werden. 

Die einzelnen Programm- 
Blöcke sind mit Rem-Zei- 
len abgegrenzt. Diese kön- 
nen beim Abtippen aber 
weggelassen werden. 


KAUFMANN PLUS/4 


Das Programm ermöglicht 
dem Anwender im kauf- 
männischen Bereich die 
schnelle Erstellung von: 
— Auftragsbestätigungen 
— Rechnungen / Liefer- 
scheinen 
— Mahnschreiben 
— Adressaufklebern 
Der Plus/4 fragt je nach 
Untermenüpunkt die ent- 
sprechenden Daten ab, 
z.B. Artikelart und -menge, 
Preise, Versandform oder 
Zahlungsbedingungen. 
Sind alle erforderlichen 
Angaben gemacht, druckt 
der Computer den ge- 
wünschten Beleg aus. 
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. 
EEE 


eatch it s===5==2=5=3352S35=5=252544 
{p) commodore welt = 


{(c) by joannis tholulis = 
hattersheim = 


version 2.9. 98z/ascii 
ce 694 + 1538/1541 


du ana was am zu aus Se Lmme zum gun wmn mem ame arme mm mim mem dm zen sum ame ame mens wem mr am mu mus 
==2222222222225 2 2255225 2222 


188 poke 53288, 1:poke 53231,1:print 

chr$(147) 

ild x=1554 

128 poke 658,255 

138 tor t=19864 to 1183 

149 poke t,1@2:poke t+54272,2 

158 poke t+22%49,182:poke 
t+18%49+54272,2 

188 next t 

178 for t=11894 to 1944 step 48 

182% poke t,182:poke t+54272,2 

198 poke t+39,182:poke t+54272+39,2 

Z88 next t 

218 geint(irnd(ti)%89@) +11dd4: ifpeekt(g 
)<>32then2Zi1@ 

228 poke q,83:poke q+34272,6 

238 printchr$(19)"score"sc,,"highsc 

ore",hi j 

242 get 3$ 

258 it a$="g"and peek(x-1)<s>i1d2then 
poke x,87?:x=x-1ligosub 5998 

288 itfas="t"andpeek (x-41)<>1ß2thenp 

okex,8?:ix=x-41:g0osub59% 

278 itas="j"andpeek (x+1)<>1@d2thenpo 
kex,87:x=xt1:905ubS5F% 

288 ifas="u"andpeek (x-39)< >1f@2thenp 

okex,87:x=x-39:90sub598 

298 itfas="y"andpeek (x-4g)<>192thenp 

okex,87:x=x-48:9g0sub59% 

3B8 itas="b"andpeek (x+39)<>1Q2thenp 

okex,87:x=x+39:905ub5979 

318 ifas="n"andpeek (x+99)<>1@2thenp 

okex,S?7:ix=x+t4d: gosub5Pß 

328 ifas="m"andpeek (x+41)<>if2thenp 

okex, 87: x=x+t41:gosub59d 

338 it peek(x)=87 then 378 

349 if peek(x)=83 then gosub 538 

359 poke x,9@:poke x+54272,5 

368 goto 238 

378 poke 54277,8:poke 59278, 248 

388 poke 54276,33 

398 tor i=15 to 9 step -2 

4858 for t=@ to 15 

418 poke 53272,t:poke 5942?3,t 

428 next t,i 

438 poke 59276,32 

448 printchr$(147) 

‚458 print"sie haben verloren":print 
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"wollen sie roch einmal spielen 


n)"* 
459 input b&$ 
478 if 
b$="n" 


(j/ 


thenprintchr$(147?):print"hof 


fe es hat spass gemacht.":end 


488 if bs="j" 


then 598 


498 print"falsche eingabe, (j/n)":9g0o 


to 458 


598 if hiisc then hi=sc 


si@ sc=d 
528 goto 198 
538 poke 594296,15 


5498 poke54277,8:poke54278, 2949: pokeS 


4276,33 


558 fort=@tolßg: poke54272,t:poke542 
73,t:nextt: pokeS54276,3 
5528 gqgeinttrend(1)*809)+1194: ifpeektq 


)<>32then56d 
578 
s1=17] 
578 
[=1277] 
618 
628 
63% 
648 
658 
668 
674 
68% 
67% 
7938 
718 
728 
738 
za 
758 


poke 
poke 
poke 
poke 
poke 
poke 


54296,15 
54272,3 
54273, 35 
54277,8 


54276,33 


poke 54276,32 
return 

rem catch it 
rem QSS9711 
rem O82g6öl 
rem 
rem 
rem 
rem 


BEREHE 
223888 
838713 


CHATCH 
IT 


* 


Das ist ein nettes Video- 
spiel, in dem Sie versu- 
chen müssen, so viele Her- 
zen wie möglich aufzu- 
sammeln. 

Sie dürfen allerdings da- 
bei nicht auf.Ihre eigene 
Spur treten. 

Auf dem Bildschirm wird 
SCORE und HIGHSCORE 
angezeigt. 

Steuerung mit: T, Y, U, 
G,J, B,N,M 


’ ’ 


s4278,248 


2908847 bytes 


poke 4,83: poke qg+54272,6 
sc=sc+tlireturn 


for o=1 to 598:next 0 


memory = 
program = 
variables = 
arravS = 
strinhgs = 


tree (9) 


FANGEN 


Das Programm wird nach 
den geltenden Fangen- 
Regeln von zwei Spielern 
gespielt. Ziel ist es, daß 
der Fänger (Joystick 
Port I) den Fliehenden 
(Joystick Port 2) fängt. 
Doch so einfach, wie es 
sich anhört, geht das na- 
türlich nicht: 

— Das Spiel findet im 
dichten Wald statt, 
Bäume müssen umgan- 
gen werden. 

— Der Fänger hat nur ei- 
ne begrenzte Zeitspan- 
ne zur Verfügung, um 

Bitte lesen Sie weiter auf Seite 98 


ug otter Steuerung 


!$ rem plotterstauerung tastatur == 
28 rem {p) commodore welt ts = 
23 rem zZerzeesessaneeaamaeeeaeannne 
= rem (c) by = 
53 rem hermann wellesen = 
35 rem version 2.6 498z/ascii = 
"8 rem c-64 + 1529 plotter = 
Sg rem S2S2Z22=25Z2= 22 SZ zzzzmecmazmuczme=z 
di rem 


1988 printchr$(147?)!rem clear screen 
119 poke5328@,8:rem rahmen schwarz 
128 pokeS53281,@:rem hintergrund 
schwarz 

1355 poked45,15:rem schrift hellgrau 
149 poke788,55:rem run/stop sperren 
158 pokes54,255:rem autorepeat auf 
alle tasten 

!öf rem 

178 rem X%%variabelen definieren *%* 
1585 rem 

178 a$(d)="schwarz" 

288 a$(1)="blau 5 

218 a$t2)="gruen " 

228 a8(3)="rot r 

238 sw=elirem schrittweite 

248 p$="m":irem stift oben 

259 rem 

269 rem *kansele zum plotter oeffne 
fl 

278 rem 

288 openl,6,1irem zeichnen 

278 open2,5,2:rem schriftfarbe 

s@@ openS,6,5:irem linienart 

sig rem 

32@ rem *%%% hauptprogramm *%* 

338 rem 

349 getz$:rem tastaturabfrage 

s5@ ifz$="i"theny=y+swirem linie ob 
en 

368 ifz$="m"theny=y-swirem linie un 
ten 

378 ifz$="j"thenx=x-swirem linie li 
nks 

388 itfz$="l"thenx=x+tswirem linie re 
chts 

spa ifz$="u"thenysytswix=x-swirem 1] 
inie linkstroben 

4gg ifz$="o"thenysytswixmxtswirem |] 
inie rechts+toben 

41a ifz$="n"theny=y-swix=x-swirem 1 
inie links+tunten 

a2@ ifz$=","theny=y-swix=x+tswirem 1 
inie rechtstunten 

430 ifz$=" "thengosubäs2firem stift 
oben/unten 

449 ifz$&=chr$(19?)thenp$="h"!irem hom 
e-position 


459 ifz$=chr&{133)thencosco+tl!ifco- 
4thenco=d:irem fl = tarbe + i 

4598 ifz&=chr&(134)thenswssw+l:iifsw> 
2dthensw=lirem #3 = schrittweite + 

1 

?& ifz$=chr$(138)thensw=sw-liitfswi 
Iithensu=s2d:rem #4 = schrittweite - 

i 

345g ifz$=chr$(135)thenla=sla+l:iifla> 


15Sthenla=s@irem #5 = linienart + 1 
494 jitfz$=chr$(139)thenlasla-il:iflat 
dthenla=s1S:rem fs = linienart - 1 


S@g print#2,co:rem farbe an plotter 
S1@ print#5,la:rem linienart an plo 
tter 

S2@ print#1,p$;x;y:irem position an 
plotter = bewegung des stiftes 

S3@ printchr&{1?)5"stift "j:itfps="d 
"thenprint"unten"!irem stiftstellung 
a.plott, 

Ss4g ifp$="m"thenprint"oben "irem bi 
ldschirm ausgeben . 

SSg printchr$(17)5 "farbe "ja$lco)ir 
em farbe auf bildschirm ausgeben 
S5Ssg printchr$(17)5"schrittweite "is 
v;chr${(2@9)5" "irem schrittweite aus 
geben 

5784 printchr$(17)5"linienart "slasc 


hrs(2@);5" "irem linienart ausgeben 
sed goto34f:!rem sprung zur tastatur 
abfrage 
S?@ rem 


sed rem *%%%* unterprogramm stift heb 
en/senken #%* 

528 ifp$="m"thenp$="d"ireturnirem w 
enn stift oben dann stift unten 

538 ifp$="d"thenp$="m"ireturnirem w 
enn stift unten dann stift oben 

sSd rem plottersteuerung =====-==54 
56G rem 38911 bytes memory 
678 rem 0924398 bytes program 
833 rem Bd6A25S bytes variables 
878 rem AAgd4gT bytes arrays 
89 rem AIGQA8 bytes strings 
71@ rem 835413 bytes free (9) 
728 rem ====2=2=2=2=22222 22222222 =2=22>=22 


1a ae | Ip, BEI u |, 
nun DB mn 
Ba a 


Plotter stsuerumng 


18 rem plottersteuerung joystick == 
28 rem {p) commodore welt ts = 
3G6 rem ======2=2=2=22S222SS5S2S 52222222 
45 rem (c) by = 
Sg rem hermann wellesen = 
&8 rem version2.9 49z/ascii = 
78 rem c-64 + 15294 plotter = 
88 rem + joystick in port 2 = 
1665 rem 


11@ printchr$(147P)irem clear screen 
128 poke53289,@:rem rahmen schwarz 
13@ poke53281,8:rem hintergrund sch 
warz 

148 poked945,15:rem schrift hellgrau 
158 poke?788,55:rem run/stop sperren 
188 poke6549, 255: rem autorepeat auf 
alle tasten 


178 rem 

18@ rem #%* variablen definieren %*%* 
198 ren : 

282 38(8)="schwarz" 

z1i8 ast1)="blau " 

228 a$(2)="gruen " 

239 3$(3)="rot . 

248 sw=l:rem schrittweite 

259 p$&="m"irem stift oben 

zZö@9 rem 

278 rem *kanaele zum plotter 
oeffnen 

289 ren 

298 openil,öd,1:rem zeichnen 

388 openZ,6,2:rem schriftfarbe 
318 open3,6,5:rem linienart 
328 rem 

33Q rem X** hauptprogramm *%%* 
348 rem 

SsSg poke56322,224:rem joystickabfra 
ge ein 


369 js=peek (565326):rem joy-port 2 a 
bfragen 


378 ifjs=12Zöätheny=y+tswirem linie ob 
en 

388 ifjs=125theny=y-swirem linie un 
ten ; 

s9g ifjs=123thenx=x-swirem linie li 
nks 

aad ifjs=11Fthenx=x+tswirem linie re 
chts 


411g ifjs=i2Z2theny=sy+tsmix=x-swirem 1] 
inie links+oben 

3246 itfjs=11Sthenysy+tswix=x+tswirem 1] 
inie recht+oben 

434 ifjs=iZitheny=y-swuix=x-swirem 1 
inie linkstunten 

448 ifjs=11l?7theny=y-swixexktseiren ] 
inie rechtstunten 
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459 ifjs=l11ithengosubdödßirem stift 
oben/unten ? 

489 poke56322,255:rem tastaturabfra 
ge ein 

478 getz$:rem tastaturabfrage 

488 ifz$=chr$&t19P)thenps="h":rem hom 
e-position 

477g ifz$=chr$t133)thenco=scotrl:iifcoe 
dthenco=sdirem fl = farbe + 1 


Sag ifz$=chr$(134)thenswssw+rliitsw> 
zZöäthensw=sil!rem #3 = schrittweite + 
1 


sid ifz$=chr$(138)thensw=sw-l:ifsws 
ithensw=28:rem #4 = schrittweite - 
1 
528 ifz$=chr$(135)thenlaslatliifla> 
15thenla=sß:irem #5 = linienart + 1 
Ss3Q0 ifz&=chr&$(139)thenlas=sla-i:itlat 
@thenla=1S:irem f& = linienart - 1 
548 print#2,co:rem farbe an plotter 
559g print#5,la:irem linienart an plo 
tter 
Sög print#1,p$;xjyirem position an 
plotter = bewegung des stiftes 
Ss?78 printchr&ti19);"stift ";:ifps="d 
"thenprint’unten":irem stiftstellung 
auf dem 
Sse2g ifp$="m"thenprint"oben 
Idschirm ausgeben 
SE printchr$t17)5"tarbe "Jastco)ir 
en farbe auf bildschirm ausgeben 
sgg printchr$&(t17)5"schrittweite 
wschr$(20)3" 
geben 
618 printchr&t1?);"linienart "slasc 
hr$(29)5" ":rem linienart ausgeben 
6268 gots35f:!rem sprung zur joystick 
ebfrase 
53 rem 
5939 rem *%%* unterprogramm stift heb 
en/senken X%%* 
ösd rem | 
sbd ifp$="m"thenpe="d"ireturniren w 
enn stift oben dann stift unten 
67 ifro$="d"thenps="m"ireturnirem w 
enn stift unten dann stift oben 
sse rem 
96 rem 
gg rem 
718 ren 
729 rem 
7S@ ren 
73% rem 
7SE rem 936265 
786 rem 


"rem bi 


ns 
5 
"’z:rem schrittweite aus 


plottersteuerung 
a359711 bytes memory 
aa242r program 
variables 
arrays 
strings 
free (8) 


un ann mn nn m m mn m mn m m mn mn mn mn mn mn mn u m mn mn nn 


u | se u | u u | 
a | u u u u 
LI | | u | Eu Eu 


Fangen 


I® rem fangen =s===2=2=2222=2=2=22=2=2==202=64 
2# rem (p) commodore welt ts = 
32 rem ====s==2=2=2=22=22=22S22e=22=emommee 


“3 rem (c) by christian steyer = 
53 rem = 
&3 rem = 
”2 rem version 2.9 48z/ascii = 
=8 rem c 694 +1539/1541 + joy = 
>= rem SSZSZZ22SS22zzzmmzezmemamaecmceomıamm 


1959 rem *%%variablenlistett** 

ı18 wh$=chr$ (885) :re$s=chrs$ (928) 

128 sp$=chr$ (832): do$®=chr$(9817) 

1385 co$=chr$ (888) !gr$s=chrs (142) 

148 cl$=chr$(147):ho$s=chr$(4819) 

158 gosub938 

15% printcls$ 

178 poke56334 , peek (58334) and254 

188 printcl$do$do$co$sp$re$"’fangen 
’*er$sps; 

178 printspsuhs"(c) 
an steyer" 


19856 by christi 


- 


218 poke52,48:poke56,48 

228 poke56334 , peek (554334) and254 

238 pokeil,peekt(1)and25i 

248 fort=Bto5Sil 

259 poke12288+t , peek (53248+t)inext 
2588 pokel,peek (1)or4 

278 printcl$ 

288 poke56334, peek (56334) ori 

278 poke53272, (peek (53272) and249) +1 
2 

3988 poke53281,8:poke53289,2 

sid fort=12288t012288+7:reada 

328 poket,ainext 

338 data 
69,66,165,129,165, 153,66, 69 

348 fort=12784t012784+7?:reada 

358 poket,a:next 

368 data 
69,66,165,129,189,129,127,85 

378 fort=12552t012552+7:reada 

388 poket,a:next 

378 data 
124,127,255,127,69,24,24,24 

428 printchr$(144)"anleitung ?":gos 
ub938 e 

419 getas: ifask>"j"andass>"n"thendi 
[7] 

428 ifa$="j"thengosubi11@ 

438 printcel$:tfort=dto14 

4498 x=int(rndat1)%(89-928) +729) 

459 poke1l@24+x,33:poke55296+x,5:inex 
t 

468 tiS="BOAIBA" I x=liyalixx=39:yy=2 


2838 printgrs:poke53289,5:poke53281, 


478 j1=56328: j 2=56321:poke1924+x+48 
*%y,8:pokel@24+xx+40%yy,62 

488 poke5529&ä+xx+4ßXyy,i 

498 gosubs4ß 2; 

5289 ifx<ithenx=1 

518 ifx>39thenx=39 

528 ify<dtheny=@ 

538 ify>Z4theny=24 

548 ifxx<idthenxx=g 

558 ifxx>39thenxx=39 

Sa ityy<ßthenyy=ß 

578 ityy>Z4thenyy=24 

588 ifyy=yandxx=xthen??& 

SP8 ify=yyandx=xxthen??g 

688 pokel@24+x+49%y,9:poke55296tx+4 
BXKy,G 

819 pokel@24+rxx+4@%yy, 62: poke55296+ 
xxt4ötyy,i 

628 pokes+t4,1?:pokes+t4,128:90sub188 
8 

638 goto498 

848 ifpeek(j1)=127andpeek (j2) =255th 
engosub1989:goto448 

658 ifpeek(j1)<>127thenpokeld24+x+4 
8%*y,32 

668 ifpeek(tji)=11lithenpokelß24+x-1r 
4Ry,B 

878 ifpeek (j2)<>255thenpokel@24+xx+ 
48%yy,32 s 

688 ifpeek (j1)=12ötheny=y-1:gosub?7? 
[%) 

6798 ifpeek(j1)=119thenx=x+1:gosub?? 
[7] 

788 ifpeek(j1)=125theny=y+1l:gosub8i1 
[7] 

718 ifpeek(j1)=123thenx=x-1:90sub83 
8 

728 ifpeek (j2)=24?thenxx=xx+1:gosub 
859 

738 ifpeek (j2)=253thenyy=yy+1l:gosub 
878 

748 itpeek (j2)=25ithenxx=xx-ligosub 
878 

758 ifpeek (j2)=254thenyy=yy-1:gosub 
18 

768 return 

778 ifpeek (1924+x+40%y)=33theny=y+i 
788 return A 

778 ifpeek (1824+x+40%y)=33thenx=x-1 
888 return 

sid ifpeek (1@24+x+4@%y)=33theny=y-1 
828 return 


839 ifpeek (1d24+x+49%*y)=33thenx=x+t1l 


848 return 

859 ifpeek (1024+xx+40%yy)=33thenxx= 
xx-i1 

858 return 


3 878 itpeek (1824+xx+46%yy)=33thenyy= 3) 
97 


Fangen 


yy-i 
889 return 

898 itpeek (1924 +xx+40%yy)=33thenxx= 
xx+i 

998g return 

918 ifpeek (1924+xx+40%yy)=33thenyy= 
yy+i 
928 
938 
948 
958 
[7] 
968 
978 


return 

rem *50und* 
s=54272:pokes+24, 15: pokes, 198 
pokes+1,3@:pokes+t5,18@:pokest4, 


pokes+d, 148: return 

rem %%%faenger gewonnenx*%%* 

988 pokes+24,127:1k=16 

998 pokel924+x+49%y,9:pokes+4,129:p 
okes+24,129:1k=16 

1889 fort=12288t012288+7:poket,8:fo 
rg=8to1@5:next:ik=1k-2:pokes+t24,1k: 
next 

1818 printhosuhs'"getanrnyge nn” 
1828 printdo$sdos"wollen sie noch ei 
nmal ?" 

1838 gety$iitysi>"n"andy$f>"j"theng 
osub1199:g0to193® 

19848 ify$S="n"thensys64738 

1858 run 

18523 Fort=12784t012784+7?: poket,@:fo 
rg=dtolß@:next 

1878 next:printhoschrs$sti4a)"t ime 
o u t"wh$S:9g0otol92g 

1888 iftis$>"’088059"then1862-4 

1896 return 

1188 jk=jk+@.84:poke12552+irt(jk),S 
return 

i11lßö rem *anleitung:* 

1128 rem 
1138 poke53265, peek (53255) and237? 
1148 printcl$uh$dosdos$"----- anleitu 
ng-fuer-das-fangenspiel-----" 

1158 printsp$"fuer dieses spiel bra 

uchen sie viel" 

115@ printsp$"phantasie.sie 
144)"S"wh$") muessen" 
1178 printsp$"aufpassen, 
er zweite" 

1153 printsp$"spieler 
not,” 

1198 printsp$"achtung, 
ie das fuer den " 


("’chr$t 
dass sie d 
{>) nicht fae 


so leicht, 


1298 printsp$"faenger aussieht, ist 
es nicht. denn" 
1218 printsp$"das spiel wird im dic 


hten wald ausge-" 
1228 printsp$"tragen. 
ger (>) innerhalb" 
1238 printsp$"5@ sekunden den"spSch 
r$(144) "S"wh$sp&$"nicht" 


98 


wenn der faen 


1248 printsp$"gefangen hat, 
der fliehende ge-" 

1258 printsp$"wonnen." 

12588 printsp$"zur verwirrung kann d 
er fliehende mit" 

1278 printsp$"teuer direkt neben si 
ch ein duplikat" 

1288 printsp$"aufstellen.” 

1298 printdoschr$st144) "----- s- 
Ssp-=737°-5 Henn " 

13988 poke53265, peek (53255) or16 

1316 poke198,98:wait198,1:geta$ 

1328 ifas<>sp$&then1329 

1338 return 

1349 rem 
1358 rem 
1358 rem 
1378 rem 
1389 rem 
1378 rem 
1404 rem 
1418 rem 


so hat 


memory 
program 
variables 
arrays 
strings 
free (8) 


mm mn ham mem am mm gem. mm am men mem mm mn mm mm mn mn mn mn m 
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FANGEN 


seinen Gegenspieler zu stellen, die dem Fänger 
erwischen. keinen Gewinn bringen. 
— Zur Verwirrung kann Da erst der Zeichensatz 
der Fliehende mit Hilfe definiert werden muß, 
. des Feuerknopfes ergibt sich zum Spielan- 
Kopien seiner selbst er- fang eine kurze Wartezeit. 


THALES 


Dieses Programm habe ich 
in sechs Teile unterteilt: 
Teil 1: Grundrechenarten 
Teil 2: Bruchrechnen 
Teil 3: Prozentrechnung 
Teil 4: Zinsrechnung 

Teil 5: Logarithmen 

Teil 6: Programmerklärun- 
gen 

Bei Teil 2, 3 und 4 waren 
nur die Formeln schwierig. | 
Diese Rechenarten habe 
ich auch noch nirgends ge- 
sehen, natürlich in keinem 
Matheprogramm. 

Zu Teil fünf noch etwas: 
Lars Zimmer, der VC-20 
Mathematikprogramm- 
schreiber hat die Logarith- 
men mit der Trigonome- 
trie verwechselt. Sinus, 
Cosinus und Tangens ge- 
hören zur Trigonometrie. 
Das steht in jedem Mathe- 


matiklexikon. Könnten 
Sie das vielleicht an Lars 
Zimmer weiterleiten? 
Insgesamt meine ich ein 
gutes Mathematikpro- 
gramm erstellt zu haben. 


Thales 


thales 
(p) commodore welt 


(c) by 


martin zuechner 


version 3.5 498z/ascii, 
ceilös/ils/p4 + 1539/1541 


Wr, 

ul 

3 
num 
U a u use | 


VO SO UM BWMN 
iz! 
id 
3 


15 scncelr 

25 volS5:sound2, 118,29:color@,1:!colo 
r4,1 

Ss color1,2,@:print"tttttt.hh. 
‚adr.sil...eeeseee, 555553" 

se calar3;9,Lipräntt.. bi..chichh 
Bee ler ehgernr ne Senn 


HN a 


5S8 colori1,4,2:print"..tt...hhhhhh oa 
saaasa.,11...eese,,..5555 " 

BB. E81061,5;84 print". i...hh..hh.a 
3: IR ie ....S" 

738 colori,6,4:print"..tt...hh..hh a 
a..a3 1111 eesescee sssTT " R 

38 color 1,2 

85 print:sound2, 254,29:print"..... 


‚ein. .mathematikprogramm" 

7% print:sound2, 345,29: print"...... 
..von martin zuechner" 

199 print:sound2, 564, 29:print"..... 
:..(c) 1986 by m. zuechner" 

11@ print:sound2, 758, 29:print"..... 
Re .s..version 3,5" 

128 print:sound2, 939, 29:print"”..fue 

r c-15 c-i16 plus/4 + 1531/1541" 
138 for 1=-1t05504 

149 next 1 

188 scncir 

178 print "XII m en u e 

KRRÄKKKRKRK" 


288 print 

218: print" grundrechenarten..s.s.. 
Se pen bruchrechnen. vs s200. 
2 RR prozentrechnung. „ss... 
Nr zinsrechnungs ss 2. 04044 
Bar ei 1og3rithmos.. onen nenns 
aa programmerklaerungen.. 
En orink 

ER PRINT" usw ia ana ** bitt 


e waehlen*%*"' 
272% getkey 3$ 
2389 if a$="1" 
298 if a$="2" 


then 338 
then 2468 


388 if a$="3" then 1259 

319 if a$="4" then 3718 

315 if a$="5" then 2138 

328 if at="&" then 335% 

339 scncelr 

348 print'"'%%kgrundrechena 
r te n%%" 

SS print" men ue * 

KERKRHRERRK 

"35% print 

372 pfint"addition. ses. ol" 

389 print 

398 print"subtraktion. ..... = „.z" 

488 print ' 

418 print"multiplikation... = „.3" 


428 print 

438 print"division. ae ne ua Es 
448 print 

341 Print"Ppotenzs nn. Ei 
442 print 

SE PEIRET. een a u a 
e waehlen*t%*" 

458 getkey a$ 

a7 if a$="1" then 528. 

438 if a$="2" then 728 

478 if a$="3" then 838 

Sea it a$="4" then 936 

S95 if a$="5" then 1939 

S1i8 goto 458 

528 scncelr 

SS print" KR add it i 
ON KRRRRRRR" 

S48 print 

S5Z input"wie lautet der 1.summand" 
a 

578 input"wie lautet der 2.summand" 
’b 

5976 let s=atb 

SA printa"addiert mit"b" ergibt"s 
sid print 

628 print"i....menue 

638 print 

648 print"2....menue grundrechnungs 
arten" 

65@d print 

668 print"3....ende" 

678 getkey a$ 

6838 if a$="1" then 189 

698 if as="2" then 339 

aa if a$="3" then end 

718 goto 678 

729 scnclr 

738 print’ subtrakti 
ON KRRERERK" 

748 print:input"wie lautet der minu 
end"’;a 

778 input"wie lautet der subtrahend 
25 


99 


nn nn 


Thales 


7978 let s=a-b 

888 printa"subtrahiert von"b" ergib 

t"s 

818 print 

828 goto 429 

839 scncelr 

848 print'%tmultiplikat 
ion KH" 

85g@ print:input”’wie lautet der 1.fa 

ktor";sa 

838 input"wie lautet der 2.faktor"; 

b 

9Aß let s=artb 

18 printa"multipliziert mit"b" erg 
ibt"s 

928 goto 619 

938 scnclr 

949 print"RERKIIKIRIK division 
nn KERRRRRIR" 

958 print:iinput”’wie lautet der divi 

dend";a 

7388 input"wie lautet der divisor";b 
10898 let s=a/b 

1818 printa"”dividiert durch"b" ergi 

bt"s 

1828 goto 61@ 

1834 scnclr 

1849 print" potenzrech 

nung KRRI%" 

1859 print:input"wie lautet die bas 
is"sa 

1888 input"wie lautet der exponent" 
;b 

1186 let s=a”b 

1118 printa"potenziert mit"b"ergibt 

"= N 

1128 goto 6if 

1259 scncelr 

1268 print"RRREKHKRRRIR prozentrech 

NUg RRRRRRRKKR" 

1278 print 

1288 print"..i.. = ausrechnung des 

grundwertes" 

1298 print 

1388 print"..2. = ausrechnung des p 

rozentsatzes" 

1318 print 

1328 print"..3.. = ausrechnung des 

prozentwertes" 

1338 print 

1349 pr ine” oe du aa a ae RB Ltr 
waehlenXX" 

1359 getkey 3$ 

1368 if a$="1" then 1498 

1378 if a$="2" then 1618 

13839 if a$="3" then 1719 

1398 goto 1348 

1498 scnclr 
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1418 print"X%%%%ausrechnung des gru 
ndwertesxXX%%" 

1428 print:zinput"wie lautet der pro 
zentwert"jw 

14398 input"wie lautet der prozentsa 
tz";p i 

1478 let g=uwt1@ß/p 

148% print"der grundwert ist"jg 
14978 print 


1569 print"...i... = menue" 

1518 print 

1528 print"...2... = menue prozentr 
echnung" 

1538 print 


1548 print"...3..: 

1559 print 

15588 print"..c.. wie. Riiepalie 

tte waehlen" 

1578 getkey 3$ 

1588 if a$="1" then 188 

1598 if a$="2" then 1259 

16986 if a$="3" then end 

1618 scncl’r 

16828 print"X%%%% ausrechnung des pr 

ozentsatzestX%t%%*" 

1836 print:input”’wie lautet der pro 

zentwert"jw 

18598 input"wie lautet der grundwert 
"sg 

1884 let p=w/gt1ß 

15899 print"der prozentsatz ist";p;" 

zn 

1788 goto 1498 

1718 scncelr 

1728 print"*%%% ausrechnung des pro 

zentwertes XX%%*" 

1732 print:input"’wie lautet der gru 

ndwert"5g 

1748 input"wie lautet der 

prozentsatz";p 

1789 let w=gip/1iedd 

177@ print"der prozentwert ist"jw 

1S2@ goto 149% 

2139 scnhcelr 

2148 print "KRRERRRRRRRRR logarithme 

n 

KREKEKRKRRR" 

2156 print 

2138 print. sul 
logarithmus" 

2178 print 

2184 print"...cZrren 

er) logarithmus" 

2288 print 

2218 print”. .vessesnsnane ns Krbitte 

waehlen*%" 

2228 getkey as 

223@ if a$="1" then 22659 


ende" 


ee ee re 


natuerlicher 


briggser (18- 


hi hi a Hi JB di db db di dh u Hi di ai 


| II ET EI EI u I u u Tu u 4 


zu ’ım I ED EI u TE Te Ho u 


EEE Br | 


Theales 


2249 if a$="2" 
2258 scnclr 
2273 print"XXX%%%* natuerlicher 
zrithmus #XHRIKR" 

2233 print 

2278 input"gib eine zahl ein"jx 
2389 print"der natuerliche logarith 
mus von"s5sxs"ist"log(x) 

2318 print- 

Br DEINEN nenn 
2338 print 

BB print". 2 


then 2419 


log 


menue" 


menue logari 


thmus" 
235% print: print". ...3....'= ende? 
53: BEINEN as € ‚*%*bitte 


washlenx%#" 
2388 getkey a$ 


2378 if a$="1" then 188 
23388 itfas="2" then 2136 
2376 if a$="3" then end 


2499 goto 2319 

2419 scncir 

2428 print"#%%%%* briggser (19-er)lo 
sarithmus FR" 

2438 print:input"gib eine zahl ein" 
;x 


2449 print"der briggs(i18-er)logarit 


hmus von"”’;3jx; "is 
2459 goto 2318 
24688 scncelr 
2478 print"KRERREREIRIKR bruchrechn 
ern FRKRRRRRKE" 


";log(x)/logtiM) 


2489 print 

2478 print"....1.... = addieren" 
23908 print”. .02s+ = subtrahieren 
2519 print"....3.... = multiplizier 
en" 


2528 print"....4.... = dividieren" 
2880 Brintöprint” sus nn 
bitte waehlenx*" 


2679 getkey 3$ 

2688 if a$="1" then 2839 
2678 if a$="2" then 3959 
2789 it a$="3" then 317@ 
2719 if a$="4" then 3260 


2829 gcıo 2479 

283@ scnhclr 

28948 print" KRRRRKRRRERRR addieren * 

KRRKKRKKKERRRER" 

2859 print:input”gib den 

ein";a 

ng printiinput"gib den 
n";b 

2870 print:input"gib den 

ein"j;c 

2838 print: 

in"sd 


i,.zashler 
l.nenner e 
2.zaehler 


input"gib den 2.renner e 


2878 print:input"gib die 1.erweiter 
ungszahl ein"swul 

Z2799 print:input"gib die 2.erweiter 
ungszahl ein"’jw2 

z2719 let sl=a%wil!is2= b&wi: s3=c*tu2:s4 
=dtw2 


2928 let sS=s1l+ts3 

2938 BRIDEr a s5 
2946 print"”das ergebnis ist! ====== 
2730 print" var BZ 


2768 print"....1l.... = menue! 

2778 print:print"....2.... = menue 
bruchrechnen" 

2938 printiprint"....3.... = ende" 
2998 printiprint” ou EEE, 
*xbitte waehlen**" 

3499 getkey as 


sig if as="1" then 189 

Sa28 if a$="2" then 24598 

3a38 if a$="3" then end 

S3sd498 goto 3928 

3858 scnheir 

SED primt"RERRRRERERRRFR subtrakti 


an RKRARKRRRRRR" 


3878 print:input"gib den 1.zaehler 


ein";a 

._. print:sinput"gib den i1.nennrer e 
n"s:b 

ar print:input"gib den 2.zaehler 

ein’je 

3188 printiinput"gib den 2.renner e 

in"5;d 

311 print:input”"’gib die 1l.erweitet 


rungszahl ein"swi 
3128 print:input"gib 
ungszahl ein";w2 
3138 let 
si=a%ul:s2=bXw1:53=c*kw2:54=d4%u2 
3148 let s5=s1-s3 

3159 goto 29739 

3188 print"das ergebnis ist: 


die 2,.erweiter 


31?@ scnclr 

3189 print"KRRRKRRRRRR multiplikati 
or KRRRRRERRR" 

3198 print:input”"gib den 
ein"ja x 

3228 print:input"gib den 
in"s;b 

3218 printzinput"gib den 
ein"s;c 

3222 printzinput”gib den 
in"sd 

323@ let sS5=a%*%c 

3248 let s2=b*d ’ 
3258 goto 2938 Be 
3269 scncelr 


1.zaehler 
i.nenner e 
2.zaehler 


2.nenner e 
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3279 print "RRRRRERRRERRRRR division 
KRERKKRKRRRERR" 

3288 print:input"gib den 1.zaehler 
ein";a 

3298 print:iinput"gib den 1.renner e 
in";b 

3388 print:input"gib den 2.zaehler 
ein"sc 

3318 print:input”"gib den Z.nrenner e 
in"’;d 

3322 let sS=axd 

3339 let s2=b%c 

3348 goto 293% 

3359 scnclr 

3368 print"XXX%%%%* programmerklaer 
ungen #XH%RX%" 

3378 print:print".zeeeeeeenaen.T IF 
undrechenarten" 

3388 print:print"es koennen nur zwe 
i zahlen auf einmal” 

3398 print:print"angenommen werden" 
3488 print:print 

3449 print:print"...oocoesaser...n 10 
garithmen" 

3458 print:print"es koennen nur In 
und 18-er log. aus-" 

3488 print:print”"gerechnet werden" 
3478 for 1=1 to 5@6@:nextl 

3498 scnclir 

3599 print:print"...scecssnusee.r7 br 
uchrechnen" 

3518 print:print"unechte brueche ko 
ennen nur gerechnet" 

3528 print:print"werden,wenn die 9a 
nze zahl in einen" 

3538 print‘print”’bruch verwandelt w 
ird. ebenso muss" 

3548 print:print"man volle ganze za 
hlen in einen bruch" 

355@ print:print”’verwandeln. z.b." 
3569 print:print"..oeseeeren 
Er 

3578 print:print"....12.22,8.2.,,3= 
3588 print:print"..zzeenseemeecennnn e 
34 

3698 print:print"wenn die nenner gl 
eich sind,dann gebe" 

3618 printiprint"i ein." 

3828 for 1=1 to 19908 

3838 next 1 

3648 scnclr 

3658 print:print”...i... = menue" 
3668 print:iprint"”...2... = ende" 
3678 printiprint"..oosrooss.«.Krbit 
te waehlen*%*" 

36588 getkey a$ 

3699 if a$="i" then 19898 
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3798 if a$="2" then endielse 36579 
3718 scnclr 

3728 print "XXI zinsrechnun 
3 KRRRRRRRRR" 

3738 print:print"ausrechnung des/de 
r-" 

STAR BIREI GE aan aka ta 1a" 
3756 print*.oesseulasesacn = mit tag 
en" . 


37688 print"..zcsce2usess., = mit mon 
aten" 

3778 print"... u8suo0, = mit jah 
ren" 

3788 print"..ssccesese nn. „Zinssatze 
5" 

37998 print"..oeeec dran, = mit tag 
en" 

3808 print". .2020o9eces.. = mit mon 
aten"” 

3819 print".zeeeecßösnnn.. = mit jah 
ren" 


38298 print".„eeesseseen. ns Zinsen" 
3338 print"... lsnennn = mit tag 
en" 


3849 print"..2ceseßessas. = mit mon 
aten" 
3859 print"..2222sPfsee... = mit jah 


ren" 

3858 print:print"....22:1d.1.2 8 2 
eit” 

3878 print:input”’..ceenan,X%% bitte 

naehlen %%"5a$ 

3888 if a$="1" then 39898 

3898 if ag="2" then 4129 

3980 if a$="3" then 42088 

351g if a$="4" then 42389 

39298 it a$="5" then 436% 

3934 if a$="ö" then 494949 

3742 it ag="?" then 4528 

3958 if a$="8" then 9598 

3768 if a$="9"then 468% 

3778 if a$="19"then 4766 

3788 scnhcelr 

3978 print"XXX%X%% kapital mit tage 
rı RERRERKRRR" 

4892 printzinput"gib die zinsen ein 
"zZ 

4218 input"gib den zinssatz ein"jp 

4828 input"gib die tagen ein "st 

4838 let k=zX3ö5dk1af/(p*t) 

48549 print”das kapital betrasst in" 
st; "tagen";k; "d-mark" 

493598 print:print".ooel.... = menue" 
agsd print"....2.,.,. = menue zinsre 
chnung" 

49878. print"..2.9..:. = ende" 
49839 print:input". zoneeorune 
itte waehlen **"ja$ 


..,%%* BD 


atktıaıı h : betr Bb BB 4 


a zZ we go 


u u a Te 


Thales 


4599 if a$="1" then 139 

“199 if a$="?2" then 3718 

“119 if a$="3" then endielse 49598 
4128 scncelr 

3138 print"XXX%%%% kapital mit mona 


ten KKRRRRRK" 

4148 print:input"gib die zinsen ein 
"7 

4159 input"gib den zinssatz ein";p 
#168 input"gib die monate ein.."im 
4178 let k=16@%z%12/(p%m) 

4189 print"das kapital in"5mj "monat 
en betraegt";k;"d-mark" 

4179 goto 49856 

3289 scncelr 

3218 print"XXXXR%% kapital mit jahr 
Er KRERKERKRK" 

422% print:input"gib die zinsen ein 
2 

423% input"gib den zinssatz ein";p 
4249 input"gib die jahren ein "ji 
4259 let k=196%z/(p*i) i 
4289 print"das kapital 
n betraegt";k;"d-mark" 
4279 goto 4959 

4288 schcelr 

4298 print" RRRKKXXR zinssatz mit ta 
gen KRKRKRKIK" 

4398 print:zinput"gib das kapital ei 
n"s;k 

4318 input”"gib die zinsen ein"jz 
4328 input"gib die tage ein "jt 
4334 let p=100*%z%369/ (kt) 

4348 print"der zinssatz in";jt; "tage 
n betraegt";p; "%" 

4359 goto 4954 

4358 scnhcir 

4378 print"XX%%%% zinssatz mit mona 
ten KRRRRRRR" 

4388 printiinput"gib das kapital ei 
n";k 

4372 input"gib die zinsen ein"jz 
4489 input"gib die monate ein"jm 
4418 let p=e1@A%z*12/ (km) 

4428 print"der zinssatz in"jmj"mona 
ten betraegt";p; "%" 

4439 goto 4959 

4448 scnhclir 

4459 print"XXX%X% zinssatz mit jahr 
en RRERKEKERK" 

4468 print:input"gib das kapital ei 
n"3;k 
4478 
4489 


in"’5i;"jahre 


input”gib die zinsen ein"jz 
input"gib die jahre ein "ji 
4496 let p=1@0*z/ (k*i) 
4599 print"der zinssatz 
en betraegt";p"%" 

4518 goto .4959 


in"5i5"jahr 


4528 scnclir 

4539 print"'XRKRRRRRK zinsen mit tag 
en RERRRIREK" 

4549 print:iinput"gib das kapital ei 
n"3;k 

4558 input"gib den zinssatz ein"sp 

4569 input"gib die tage ein "st 

4579 let z=ek*p*xt/(199%369) 

4589 print"die zinsen in"s;st"tagen b 
etragen";jz;"d-mark" 

4599 goto 4959 

4888 scncelr 

4618 print"KKRRRRRR zinsen mit mona 
ten RRRRRRRK" 

4628 printzinput"gib das kapital ei 
n"5;k | 
4538 
4649 


input"gib den zinssatz ein"jp 
input"gib die monate ein "jm 
45598 let z=ektpxm/ (190%*12) 

4688 print"die zinsen in"jmj "monate 
n betragen";z;"d-mark" 

46878 goto 4959 

45359 scnhelr 

4598 print"XKXRKKR% zinsen mit jahr 
EN KRRRRRRRK" 


4788 print:input"gib das kapital ei 
n"3;k 

4718 input"gib den zinssatz ein"jp 

4728 input”gib die jahre ein "3j 

47368 let z=k*p*Xi/108 

4748 print"die zinsen in"jij"jahren 


betragen";z;"d-mark" 

4758 goto 49598 

4769 scnelr 

A778 print" RRRRKRKRRRRRRRR zeit KR 
KRRRRKRRRRRR" 

4788 print:input"gib das kapital ei 
n"sk 

4798 input"gib den zinssatz ein"5p 
4899 input”"gib die zinsen ein "jz 
4318 let i=1Q9%*%z/ (kp) 

4328 print"die zeit betraegt bei ei 
nem zinssatz von"5ps"%"ji;"jah./mon 
‚./tage" 

4338 goto 4959 

459% rem thales SSSSSS2S2 2225222229 
485529 rem Asds?7l memory 
4368 rem 10842 bytes program 
4878 rem Ad0Aag variables 
4338 rem dOABaE arrays 
43798 rem 000999 bytes strings 
47998 rem 049869 free (8) 
4919 rem ==========222=22= == 200omeme 


nenn > 
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18 rem kopierschutz ==>===========654 
2& rem (p) commodore welt ts = 
38 rem ======2=2=25=2=2222=255=55755555557 
48 rem {c) by = 
5@ rem hermann wellesen = 
dd rem = 
7% rem version 2.9 49z/ascii = 
Sg rem ce-564 + 1541 Floppy = 
GA rem mmesesesmsmesesemmemmsmemmen 
188 rem ‚ 


118 poke53289,@:rem rahmenfarbe sch 

warz 

128 poke53281,@:rem hintergrundfarb 
e schwarz 

138 poke645,15:rem zeichenfarbe hel 
lgrau 

148 poke?88,52:rem run/stop sperren 
159 b$="" 

169 rem *einlesen der seriennummer* 
178 open1,8,15 

188 open2,8,2,"#" 

198 print#1,"u1l"5325951858 

288 print#1,"b-p";2;51ö2:rem beginn 
des einlesens beim 152. zeichen 

zi& rem *%%* 2 zeichen einlesen #%* 

228 get#2,3$ 

239 get#2,b&$ 

248 b$=a$+b$ 

258 close2 

zöf closel 

278 b=valtb$)irem umwandeln string 
zu zahl 

228g ifb=&490t0358:rem vergleich der 
seriennummer auf richtigkeit 

258 rem *programm kann nicht starte 
n 

388 print"das programm 
schuetzt" 

318 print"zur strafe wird die diske 
tte formatiert" 

328 open1,8,15,"n:wasweissich, 88" 
338 closel 

348 nen 

35% rem *programm kann starten %%* 
369 printchr$(147);5chr$t18);5" ";b;c 
hr&{(157)5" "schrs&$(146) 

378g print 

35@ print"hier kann nun das program 

m beginnen" 

3998 print"in:der oberen zeile kann 

man die" 

486 print"seriennummer erscheinen |] 
assen, um” 

418 print"so einem raubkopierer auf 
die schliche" 

428 print"zu kommen." 

438 poke198,@:wait198,1 
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448 
458 
46% 
478 
458 
478 
598 
Sig 
s28 


38711 
Baısag 
298923 
BARBAE 
BOBA2E 
837327? 


kopierschutz============54 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


memory 
program 
variables 
arrays 
strings 
free (9) 


MATHEMAX 


Das Programm Mathemax 
V1.0 ist, wie ich meine, 
ein sehr hilfreiches Mathe- 
matikprogramm. Wenn 
man bei irgendwelchen 
Berechnungen schon ein- 
mal lange nach Umrech- 
nungsfaktoren gesucht 
hat, um einen Wert einer 
Einheit in den entspre- 
chenden Wert einer ande- 
ren Einheit zu konvertie- 
ren, wird man sich statt 
dessen in Zukunft dieses 
einfachen Programms be- 
dienen. 
Mit dem obligatorischen 
“RUN“ steigt man in das 
Programm ein und landet 
nach dem Intro im Haupt- 
menü. Dort kann man 
zwischen folgenden Mög- 
lichkeiten wählen: 
— Umwandlungen von 
Druckeinheiten 
— Umwandlung von 
Zeiteinheiten 
— Umwandlung von 
Krafteinheiten 
— Umwandlung von 
Temperatureinheiten 
— Umwandlung von 
Geschwindigkeits- 
einheiten 
— Umwandlung von 
Gewichtseinheiten 
— Umwandlung von 
Energieeinheiten 
— Umwandlung von 
Leistungseinheiten 


Hat man sich entschieden, 


drückt man die entspre- 
chende Zahlentaste, die 
im Menü verlangt wird 
und befindet sich so- 
gleich in der gewünschten 
Routinen. Zuerst wird 
man aufgefordert, den 
Zahlenwert einzugeben 
(die Null wird außer als 
Temperaturwert nicht an- 
genommen). Hat man dies 
getan (wird mit einem 
Pieps quittiert), wird man 


nach der Einheit gefragt, 
die dem Zahlenwert zuge- 
ordnet werden soll. Nach 
der Bestimmung der Ein- 


- heit wird das Ergebnis 


auf dem Bildschirm ausge- 
druckt. Das Ergebnis wird 
in allen Einheiten, mit 
der die jeweilige Routine 
rechnen kann, ausgegeben. 
Schließlich kann man mit 
“]“ die Routine wieder- 
holen, mit “2‘ zurück ins 
Hauptmenü gelangen oder 
mit “3° das Programm 
beenden. 

Aufgrund des klaren und 
übersichtlichen Aufbaus 
des Programms ist es 
nicht schwer, den Pro- 
grammablauf nachzuvoll- 
ziehen. Einige häufig 
wiederkehrende Print-An- 
weisungen und die Input- 
Routine für den Zahlen- 
wert habe ich in Unter- 
routinen untergebracht, 
die mit Gosub aufgerufen 
werden. Nach der Pro- 
grammentwicklung habe 
ich ein Renumber10,10, 
10 durchgeführt, damit 
man das Programm dann 
mit AutolO abtippen 
kann. Das Programm läuft 
auf den Rechnern C16, 
C116 und Plus/4. 


Variablenliste: 
A$ = Auswahl im 


° Hauptmenü 


B$-I$ = Auswahl der 
Einheit in der jeweiligen 
Rechenroutine 

A = eingegebener 
Zahlenwert 

AA = berechneter Wert 
F = Sound-Schleife im 
Intro 

Z$ = Tastaturabfrage 
im Intro 

G = Abfrage: nochmal, 
Hauptmenü, Ende 


Mathemax 


!& rem mathemax TREE SL LA TEN 
23 rem (p) commodore welt : ts = 
28 rem SZZESZSZSZZESZSZSI IE Summen 
“3 rem (c) by thomas weyrauch = 
S$ rem = 
sd rem = 
78 rem version 3.5 49z/ascii = 
55 rem c16/116/plus 4 + 1531/1541 = 
> rem SSSSZES2S2S5=2SS22222S 222222022 


1298 cl$&=chr$(147?) !rn$=chr$(g18) 

118 rf$&=chr$(144) !re$=chr$(928) 

128 ye$=chr$(158) :!bl$=chrs (#31) 

125 pu$=chr$(158) :c4$=chrs$ (617) 

138 printcel$ 

178 fori=1to2@:printc4$;j:nexti 

175 printtab(19)rn$bl$"druecke eine 
taste !" 

299 getkeyz$ 

218 ceolor1,1,9:color8,2,7?:color4,14 
‚3:printcl$ 

228 printblE"RRXXRKKXRR%  "re$"math 

zmax v1l.9 "DIE" KRRRRRKRKRKR" puS 

239% print:print" umwandlungen von w 

erten einer " 

231 print"physikalischen einheit 
werte einer" 

249 print” anderen 
ıinheit"bk$ 

258 print:print" energieeinheiten"s 
petitiy®"= 1* 

288 printres" 


in 


physikalischen e 


gewichtseinheiten.... 


nn... 2" 

278 printbk$&" geschwindigkeitseinhe 
iten = 3" 

288 printre$" druckeinheiten"spct13 
)"= q" 

278 printbk$" krafteinheiten"spc (13 
; Su 

s2@ printre$" leistungseinheiten... 
ee = 6" 

318 printbk$" zeiteinheiten"spc(i4) 


m zn 

328 printres" 
en. B" 

338 print:printrnsbl$" druecke eine 
taste von 1 bis 8 !"rf$bk$ 

348 geta$: ifa$=""then34g 

355g ifas="1"thendg4e 
369 ifa$="2"then85g 
378 ifa$="3"then1299 
359 ifa$="4"then1498 
379 ifa$="5"then1879 
498 ifas="Ss"thenz2irg 
418 ifa$="?"then251g 
429 ifaß="8"then293g8 

439 goto34d 

448 rem *%%* modul i 


temperatureinheiten.. 


energie *%* 


458 


eolor4,3,3:printcl$s:print” umwa 


ndlungen von energieeinheiten" 


7-77] 


548 
6359 


gosub23249 

gosub2P1% 

print" newtonrmeter....(nm)...= 
print" wattsekunde....(ws)...= 
print” kilojoule.....u {Kl u. ,® 
print" kilowattstunde (kuh)..= 
print" kilopondmeter..(kpm)..= 
print" kilocalorie.... (kcal) = 
print" elektronenvolt (ev)...= 
print" erg"spc(12)"(erg)..= 8" 
print" joule"spe(1@)"(j)....=9 
print” ealoriei...u:u se lEBL) TE 


getb&: ifb$=""then58d 
itb$="1"thenaasa:goto?dg 
ifb$="2"thenaa=a!goto?rgßg 
ifb$="3"thenaasatle3:!goto?dg 
ifb$="4"thenaa=sat3.8eö:90t079d 
ifb$="5"thenas=a%9.81:90t0799 
ifb$="&"thenaa=3%4816.8:90t079%8 


ifb$="?7"thenaasatl.se-19:g0to7ag 


[-1-17] 


ifb$="&"thenaa=satti/le?):goto?7aa 


ra 
639 
527] 
728 
71@ 
728 
738 
748 
)) 

758 
768 
778 
19 

7838 
798 
sg 
s1g 
328 
i=je17] 
340 
=te77] 
=1-17} 


ifb$="9"thenaasa:!goto?gg 
ifb$="@"thenaa=at4.1888:g0t07086 
30oto5s9 


gosıub287@ 

print” ; : ";aa 

print” rm » "aa 

print" vs : ";aa 

print" kuh 2 "5a3%(2.78*t(1/1le? 
print" kpm : "5a3%9.182 

print" cal : "5a3%9.239 

print" kcal : "5aa%(2.39*t1/1led 
print" erg : "jaatle? 

print" kj : ";aa/le3 

print" ev » "z;aatl1/1.de-19) 
gosub23979 

input" "359g 

onggoto449, 219, 2896 


ifg@ >lorg< >Zorg< >3thens2a 
rem %%%* modul 2 gewicht *#%% 
color4,4,3:printcl$:iprint” umwa 


ndlungen von gewichtseinheiten" 


878 


2» 
105 


905ub2328 


m ln 


MmMmathemazx 


839 gosubZF18 

878 print" gramm"spet12)"= 1" 
9988 print" kilogramm = 2" 
918 print" tonnen”spetll)"= 3" 
928 print" karat"spe(12)"= 4" 
93% print" zentner"spcet18)"=- 5" 
949 print" pfund"spce(12)"= &" 
95@ print" englische pfund = 7?" 
958 print" doppelzentner = 8" 
978 getc$: ifc$=""then??A 

989 ifc$="1"thenaa=sa:gotol978 
978 ifc$="2"thenasa=at1909: gotold?g 


19998 ifc$="3"thenaasatled:gotol@?8 
1819 ifc$="A"thenaasat@.2:g0t0ol@?8 
1828 
ifc$="5"thenaasatS5dtle3:gotold?% 


19398 ifc$="ö"thenaasatsgAg:gotolß?9 
1842@ ifc$="?"thenaa=a#454: gotol@?7d 
1858 ifc$&="8"thenaa=satl@gtle3:goatol 
278 

19858 goto9?E 

1878 gosub28?8 

1838 print" gramm. osueesennan.ı "38a 
1896 print" Kilogramm. ..s22..: "3328 
/12908 

1188 print” tonnen..„.sesssers: "538 
/le6 

111®@ print" Karat... aan ee BR 
/8.2 

1128 print" zentner...::. FRE a ri 
/(1e3*59) 

1138 print" pfund.v.oocsesusnas "588 
/5938 

114% print” englische pfund..: ";jaa 
/454 

1158 print" doppelzentner....:."3328 
/t1e3#199) 

11898 gosub28P4 

1178 input" "539g 

1189 ongg9oto359, 219, 2808 

1198 ifg<>lorg< >2orgf>3theni1178 
1298 rem *modul 3 geschwindigkeit** 
1218 color4,5,3:printcl$:print" umw 


andlung von geschwindigkeits-....:. 
‚.einheiten” 

1222 gosub282%# 

1239 gosub2918 


1248 print" stundenkilometer.....(K 
m/h) = 1" 

12598 print" knoten........ .o.n0n. ‚tk 
N)...= 2" ? 

1259 print” seemeilen pro stunde (s 
m/h) = 3" 

1278 print" miles per hour..s.s.. {m 
p/h) = 4" 

1284 print" geograph. meile/stun.(g 
m/h) = 5" 
‚1298 print" meter pro sekunde.... (m 


106 


/s)..= 6" 

1388 b=19/3&8:getd$: ifd$=""then13ß® 
1319 ifd$s="1"thenaa=satb:gotol38g 
1328 ifd$="2"thenaas=satb*1.39:g0tol3 
89 

1338 ifd$="3"thenaa=satb%*1.85:g0to13 
177] 

1348 ifd$="4"thenaa=satbti. 65993: goto 
1388 

1358 ifd$s="5"thenaa=satb#?. 429438:90 
to1382 

1358 ifd$="ä'thenas=sa:igotol38d 


1378 gotol398 
1388 gosub23?8 


1358 print" km/h.....: "3533%3.6 
1498 print" kKr.ceesen ss ":aaxt1/(1.8 
S*tb)) 

141&@ print" sm/h.....: "saatti/t1.8 
5%b)) 

1428 print" mp/h.....: "jaaktti/t1.6 
8973%*b)) 

1438 print" gm/h.....: "saarkt1/(?,4 
29438%b)) 

143%@% print" m/s ı "jaa 

1459 gosub289%# 

1454 input" "39 

1978 onggotol299,7210,29308 

1438 ifgt>lorg“}2org(>3thenidöd 
1498 rem %%%* modul 4 druck %%* 


1528 color4,8,3:printcl$:print” 
andlungen von druckeinheiten" 
1518 gosub2828 

1529 gosubZF1A 

1538 print" newton/quadratmeter.... 


ums 


eurer EN 


1548 print" 


1552 print” 
ER wer 1.) 
1558 print" 
4% 

1578 print" 
..= 5" 

15883 print" 
&" 

1598 print” 


_ nn 
ao. = 7? 


1885 print” 
t. (kp/cm2) 
1818 print" 
Be 9" 
1828 
1839 


kilopascal"spctiö)"(kp) 
hektopascal"spc (15) "hp 
bar"spc(23)"(bar)....= 

milibar"spc(19)"tmbar). 
torr"spe (22) "t(torr)...>= 
atmospheren"spc(15)" (at 
kilopond/quadratcentime 


= g" 
pascal"spe (28) "(P).e2een 


gete$: ife$=""then1d29 
ife$="1"thenaasa:goto1?3g 


1848 
1659 
155% 
I5?7% 
1538 


ife$="2"thenaa=satle3:gotol?34 
ife$="3"thenaasa#190: goto1?39 
ife$="4"thenaasatle3:g0to1?3@ 
ife$="5”’thenaa=at1ßd:goto1?3@ 
ife$="ö"thenaa=sa#133:g0to1l?38 


Mathemaxs 


1898 ife$="?"thenaa=aX9.8ikle4d:goto 
1739 

1798 
ite$="S"thenas=3a%9.31%le4:90t01738 


17198 ife$="9"thenaa=a!goto1l739 
1728 gotoi628 

1739 gosub2878 

1748 print" n/m2 ı "jaa 

1758 print" kp ı "zjaatle-3 
1768 print” hp ı "jaaktle-2 
1778 print" bar : ";aatle-5 
1786 print" mbar : ";aatle-2 
1798 print" torr : "533%7.5e-3 
189% print" at ı "saatl.G2e-5 
1819 print" kp/cm2 : "jaatl.92e-5 
1828 print" p ı "aa 

1338 qgosub2899 

1348 input” ";g 

1359 onggoto1499, 219, 2898 

1888 ifg<}lorgs>2org< }3then184@ 
1879 rem %%* modul 5 kraft #%* 
1888 color4,?,3:printcl$s:print" umw 
andlung von krafteinheiten" 

189d gosub2828 

1999 gnosub2919 

118 print" newton (in) = i" 
1928 print" kilonewton (kn) = 7" 
1738 print" meganewton (mn) = 3" 
1949 print" centineuton (cn) = 4" 
1958 print" kilopond (kp) = 5" 
1768 print" pond (pl = 6" 
1778 print" dyn (erg/cm) = 7* 
1938 getf$:iff$=""then1?89 

1998 iff$="l"thenaasa:goto2d76 
2899 itff$="2"thenaa=satle3!90t02078 
2818 iff$="3"thenaa=satleds!goto2dre 
2929 iff$="4"thenaa=satle-2:90t02978 
2038 iff$="S"thenaa=a%9.81:90t02978 
2949 iff$="ä"thenaa=at9.99981:goto2 
a?>78 

2058 iff$="7"thenaa=atl.9093e-5:got 
02978 

28589 30tol?39 

247g gosub2879 

2888 print” nm ı "jaa 

29978 print” kn : "jaatle-3 

2188 print" mn : "saakle-6 

z118 print" cn ı ";aatle2 

2128 print" kp : "5a3%9.182 

2138 print” p : "5aa*#192 

2148 print" dyn : "5a3%99969,42 
2159 gosub2899 

2188 input" "ig 

2178 onggoto1879, 219, 2396 

2188 ifg<>lorg< >2org< >3thenz2168 
2178 rem %%%* modul & leistung *%%% 


2288 color4,8,4:printcl$s:print" umw 
andlung von leistungseinheiten" 


gosub2828 
gosub2F18 
print" watt.... 
ee a ER So 

print" joule pro sekunde...... 
ti/s)....„= 2" 

2258 print" newtonmeter pro sek.... 
(inm/s)...= 3" 

22848 print" kilowatt"spc(15)"t(kw).. 
...= 4" 

2278 print" kilopondmeter pro sek. 
(kpm/s) = 5" 

2288 print" kilocalorien pro sek. 
(kcal/s) = &" 

2278 print" pferdestaerke 
fBS)sı won = 2 
23988 getg$:ifg9$=""then234g 


2319 ifg$="1"thenaasa:! goto2398 
2328 ifg$="2"thenaasa:goto2396 
2334 ifg$="3"thenaa=sa:!goto239g9 
23498 ifg$="4"thenaasatlie3:g0to2398 


2359 ifg$="5"thenaa=sat9.81:190t02398 
23659 ifgs="ö"thenaa=a#4186.8:90t023 
98 

2374 
ifg$="?"thenaa=sa#?35.5:90t02398 
2358 39002399 

2378 gosub287g8 


2498 print" uw ı ";aa 

z418 print" j/s ı ";aa 

2428 print" nm/s ı "jaa 

2436 print” ku ı "zaatle-3 
2449 print" kpm/s : "53a3%0.182 
245@ print" kcal/s : "jaaX2.39e-4 
2469 print" ps ı ";aarl.3de-3 
2478 gosub2874 

2488 input" "59 


2479 0ngg9oto2198, 219, 2898 

25898 if9<>1orgi>Zorg< >3then2488 
2518 rem %%%* modul ?7 zeit *** 

2528 color4,9,5:printcel$:print" umw 
andlung von zeiteinheiten" 


2539 gosub2828 

2548 gosub2ZF1G 

25598 print" sekunde (s) = i" 
256% print" minute (m) = 2" 
257@ print" stunde (h) = 3" 
255@ print" tag (ti) = 4" 
2598 print" woche® (uw) = 5" 
2888 print" jahr tj) = 6" 
zald geth$: ifh$=""then26id 


2628 
2639 


ifh$="1"thenaa=sa: 90t02696 
ifh$="2"thenaa=sat69: g9ato2699 


25498 ifh$="3"thenaa=at3699: g90oto2698 
2659 ifh$="4"thenaa=a%86499:90t0269 
[7] 

2668 ifh$="5"thenaa=at694899:g0t026 
98 


. 


107 
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PDMathemazx 


2678 ifh$="ö"thenaa=s3#31I536999: goto 
25978 

2888 goto?6öilß 

2698 gosub2878 

2788 print" s .: "jaa 

2718 print" m 2: "jaa/dd 

2728 print" h : "5aa/36dd 
2738 print" t : "5332/85496 
2748 print" w 2: "jaa/dsfasode 
2758 print" j : "5aa/31l536098 
2788 gosub28F8 

2778 input" "jg 

2788 onggoto2351%9, 214, 2898 


27978 
2504 
28198 


ifg<i>lorg‘>Zorg(>3then27?778 

ceolor4,14,4:scnclriend 

rem %%% unterroutinen *%* 

2828 print 

2838 printbl$" geben sie zuerst den 
zahlenwert und.....dann die einhei 

t ein !" 

2848 a=@:printbk$:input" zahlenwert 
";a:print:ifat>dthensound1,309,19 

285@ ifa=sf@then2349 

2888 return 

2878 printcl$&bl&" das sind also in 

den verschiedenen. .....einheiten :" 
print 

2838 return 

2898 printiprint" 


nochmal = 1, haup 


tmenue = 2, ende = 3.":print 
ZP88 return 
z71@ print" welche einheit soll fue 


r den einge-.....gebenen wert gelte 
H ?EBrint 

2928 return 

2939 remX*%* modul 8 temperatur *%%* 

2949 color4,2,4:printcl$iprint" umw 
andlungen von temperatureinheiten" 

2?58 print:printbl$" geben sie zuer 
st den zahlernwert und " 

2?51 printiinput” zahlenwert "jatif 
arloraf2thensoundl ,899, 19: print 


2752 print"dann die einheit ein" 
29689 gosub2F1G 

2978 print" celsius = 1" 

2782 print” kelvin = 2" 

2998 print" fahrenheit = 3" 

Sd8g print" reaumur = 4" 

said geti$:ifi$=""then3gig 

3928 ifi$="1"thenaa=a! 9g0ot03078 

3838 ifi$="2"thenaa=a-273.15:90t03% 
78 x 

s@48 ifi$="3"’thenaa=(a-32)%15/9):190 
t03879 


3859 ifi$="4"thenaasa# (5/4) :90t0387? 
2) 

sd8d goto3gig 

32878 gosub287?8 


108 


32885 print" celsius ı-";5aa 

38978 print" kelvin..z.2.: "53aat2?3. 
15 

3188 print" ahrenheit.‘: "staax(9/ 
5))+32 

3118 print" resaumur.z..2..2: "3aartl4/5 
} . 

31228 gosub23F# 

3138 input" "59 

3149 0n990t02939,219, 2868 

3159 ifgi>Florg‘ >Zorgfi >3then313g 
318% rem mathemax =======c16/1168/p4 
3178 rem A60671 bytes memory === 
3158 rem BHRBAE bytes program === 
s179 rem Q292RA bytes variables === 
3208 rem dAdada bytes arrays === 
3218 rem S90d99 bytes strings === 
3220 rem ZS22=2222522 252 E22 Er SEE EEE 


KARTENSPIEL 


Das Spiel funktioniert 
nach den “Bauern-Legen“ 
Regeln. Das Spiel hat 32 
Karten. Sie spielen gegen 
den Computer und erhal- 
ten 16 Karten, ebenso der 
C16. Wer die meisten 
Bauern hat, beginnt. Es 
muß immer mit einem 
Bauern begonnen werden. 
Nachdem ein Bauer gelegt 
wurde, muß in der selben 


Farbe fortgefahren werden, 


und zwar in Rück- oder 
Vorwärtsreihenfolge. 

Z.B. muß nach einem 
Herz-Bauer entweder Herz- 
Dame, König, Ass usw. 
oder zehn, neun acht usw. 
gelegt werden. Hat ein 
Spieler keine passende 
Karte mehr, wechselt der 
Kartenleger. Wenn Sie 
keine Karte mehr legen 
können, geben Sie >*< 
ein. 


ADRESSVERWALTUNG 


Im Menü muß gewählt 
werden zwischen den 
Punkten Datei laden, Da- 
tei speichern, Adressenein- 
gabe, Adressenänderung, 
Adressen löschen, Adres- 
sen ausgeben und Pro- 


grammende. In jedem Un- 
termenüpunkt wird nach 
der auszuführenden Arbeit 
gefragt, so daß sich das 
Programm eigentlich von 
selbst erklärt. 


Die nächste 
COMMODORE- 
WELT 
erscheint am 
25. April 


a u u 


Kartenspiel 


rem kartenspiel=s===========2222p4 
rem (p) commodore welt = 
rem ZSZz=Z2emr=assssmommameeeesesaoceennane 
rem {c) by = 
rem = 
rem = 
rem version 3.5 48z/ascii = 
rem plus4 + 1531/1541 (c1s/1lö)= 
rem 22222 ZzZzSszzzmzamzczmmzummemcemmaummne 


im ih u u Ki m 


wo 5 8 5 5 5 5 & 


ou 


188 uh&=chr$(S)ire$=chr$(28) 

119 bl$=chr$(31):0e$=chr$(129) ' 

128 1b$=chr$(153) :dbS=chr$(154) 

1239 y93$=chr$(159) :pus=chr$(156) 

149 vyet=chr$(158) :!s51$=chr$(32) 

159 zi$=chr$(9&4):z23$=chr$(123) 

188 z4$=chr&(1?1):z5$=chr$(173) 

179 26$=chr$t1?7?4)1z27$=chr$(176) 

188 z8$=chr$(177):129$&=chr$(178) 

199 zas=chr${179):zb&=chrs (139) 

2858 zc$=chr$(129):zd$=chr$(115) 

219 zes=schr$(129) :zf$=chr$(12?2) 

228 z9$=chr$(98) : zh$=chr$(168) 

238 c1$=chr$(157):c2$=chr$(145) 

248 c3$=chr$(29):04$=chr$t17?) 

2598 cl$=chr$(147?):hes=chr$ (19) 

289 rn&=chr$(18):r#$=chr$1(146) 

278 forg=1to2:g2$=q2$+c4$:!nextg 

288 torg=1tod4: qg4$=q4$+c4$:rnextgq 

276 forgq=1t023:gqa$=aa$s+c4$!nextg 
3d8 torg=1to3:gb$=gb$+zis:nextg 

s18 forg=itod:gs$=g6ös+c3sinextg 

328 forg=1to34: gd$=gds+sisinextg 
339 forg=1told:yx$=yx$+tzhsinextg 
349 yas-yastz?s+rgb$+tz9$+gb$+z27$+gb$ 
+z9$+gb$+295+0b$+ 296+0b$+ 296 H0b$ + Z9 
S+ob$+z6$ 

359 yb$=yb$tz4$+tgb$+z23$+gbs+z3$+gb$ 
+z3$+g0b$+z3$t0b$+ zZ 3$+gbS+ zZ3$Htgb$+Z3 
S+ob$tza$ 

368 yc$eyc$tz25$tgb$+tz8$+gb$+z3$+t0b$ 
+z8$+gb$+z3$+gb$+28$+0b$+z23$+0b$+z8 
$+0b$+tzb&$ 

378 yyßseyybtsistcdädstclstsi$tc?s 

388 yztsyzStsistsi$tsi$teds+ci$tcei$ 
+cl$+tsi$tsl$tsis$tc?H 

s99 colord,1 

42898 color4,i 

419 printcl$uhs r 

42% printhe$:forasitols:iprinttab(a) 
ye$rn$"Zb"rf&si$rn®$" bauern-legen " 
425 print rf$gl$rn$"Sb"inexta 

439 printg2$pu&s"kennst du die spiel 
regel....(j/n) 

448 printhes:fora=sitol8:printtab(a) 
ygatrn$"2b"’rf#&" bauvern-legen "rn$"Sb 
"ınexta 

455g geta$: ifas=""thend?d 


459 ifa$="n"then1?9g 

47?& printcel$g4$gös$"ich mische die k 
arten" 

4589 dima$(33),b$(33),c$(33),d$(4,8) 
479 f$=he$tgas 

392 9:=g9dJ$ 

S18 cst1)="aricst2)="kK"rics(3)="dric 
Fsta)="b"isc$l(5S)e"zZ"icstä)="P"rick(?)= 
"on 

S28 c$t8)="F"ibstl)ern$+t"A"ib$(2)=r 
nNE+"S":bSt3)ern$H"Z"ibst4d)sernst"xX" 

asg dS=erf$+rz3Strcdstcl$+tzg9&6+C28: y=16 
Ss49 i=1:!fora=s1t08:forb=ito4d:!as(li)=b 
BibI +cA4s+21ls+c$(la)tc2$iisitrlinextb, 


KU 


55 rzm *%mischen und verteilen** 
5359 fora=s1to32:b=ernd(i)tifbsithenb= 
G.997977 

5783 c=sint(b#(33-a))+tilic$(a)=saste):c 
1i=sc:31$=a$(c) 

538 ifc1>32-athensid 

Sad astcl)=sastciti)ici=ci+ti!gotoS588 
ses gato53Z 

61 astci)=aisinext : 

628 fora=ito32:b$(a)=""!asla)=""ine 
xta 

638 a=ß:forb=1tols:!asaril!asstb)=cs$(a 
)zsa=satl:!:b$(b)=c$(a):inext 

8648 fora=1t033:c$la)=yz$:inext 

859 printcl$oe$:gosub&449:g0t0859 
668 printhe$oe$s; 

678 printtab(31)rn$",..habe.." 

68% printtab(3l)rn$"........":print 
tab (32) c2$rn&sis$y 

67% printtab(3l)rn$" karten "res$ 
»@9 fora=1t039:printzh$;inexta:prir 
t 

718 printtab(3)bl$yas$ 

2a bi=d:forasitod 

738 printtabt3)5:forb=1to8:bi=bi+t: 
printd$;yesc$(bi)bl$;j:nextbiprintds 
print 

748 ifafdthenprinttab(3)yb$inexta 
?5g printtab (3)yc$res$ 

769% fora=1to3P:printzh$jinextaiprin 
tlbSc4$" 

7?& printtab(3)5:fora=itolös:printbs 
(a)rf$si$;jinextaiprintresc4s$" 

788 fora=1t039:printzh$jinexta:iprin 
tdb$c4$" 

FIR BPINEHEFEHET u. wu tete ehe ae 
3888 fora=itoläs:ifas(a) >""thens3g 
Ss19 nexta 

828 printhesc4srn$&uh$" ich habe gew 
onnen "db$:end 

838 fora=itolä:ifascib$(a))<>32then 
return 
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848 nexta 
858 printf$rn&lb$" du hast gewonnen 
"Je$"gratuliere "db$:tend 


866 fora=itolä:ifmids(asta),5,1)="b 


"theng=qti 

878 nexta 

888 ql=int(Z*rndtiJ+1l) 

898 ifg‘2then?3d 

g9aS& itg>Z2then1289 

918 ifgli=ithen?38 

928 itqi=2then1288 

938 printf$"welche karte willst du 
legen "5 

948 c=B 

c=c+ti 
geth$tc):ifhste)=""then?6% 
itfh$stc)="*"thenprintf$g$:gotol2 


a=sasc(h$t(c)) 

ifc=1thengotol®28 

rem 

rem 

fora=s1toS:getz$inexta 
ifc<{2then95g 

c=@ 

fora=itold 

1888 ifasctmidstbsta),2,1))=asclhst 
1))+128andmid&(b${a) ,5,1)=h$(2)then 
1188. 

1274 nexta 

1as8a printfs"XR%R%rt falsche eingabe 

KEIIIIIIIH "I tora=1t0999:nexta:pri 

ntf59$ 

1998 goator3d 

1198 mt=midttbsta),2,1)in$=midstbs$t 
3),5,1) 

1l1@ ifm$="A'thenal=4:a2=4 

1128 ifm$="S"thenal=12:a2=12 

11238 ifm&="Z"thenal=2@:a2=2@ 

1148 ifm$="X"thenal=28:a2=28 

1158 ifn$="a"thenal=sal-2:a2=a2-3 
11688 ifn$="k"thenal=al-1!a2=a2-2 
1178 ifn$="d’thena2=a2-1 

1188 ifn$="b"then1249 

1198 ifn$="z"thena2=a2+l . 

1298 ifn$="9"thenal=sal+til!a2=a2t2 
1218 ifn$="8"thenaisal+t2ia2=a2t3 
1228 ifn$="7"thenal=sal+t3:!azZ=a2t+4 
1238 ifasc(c$(al))=32then193% 

12498 c$ta2)=b$(a)+tyyS$tb$ta) 

1259 printf$g&:b$(ta)=yy®$ 

12688 gosubs6d:gato1288 

1278 rem XX%%* computer KX%%* 

12389 fora=ltold:i$=mids(a$(la),2,1D: 
j&$=midtla$ta),5S,1) 

1298 ifas(a)=""theni1439 

1389 ifis="A'theri=l 
1319 itig="S"theni=2 


110 


EEE m nn _  _  _ smszrz m — — — ————— 


1328 
1338 
1349 
1358 
1368 
1378 
1382 
13978 
1428 
al 
1428 
1438 
1449 
1452 
1488 
147% 
1434 
149% 


ifi$="Z"theni=3 
ifi$="K"theni=4 
ifj$="a"thenj=l 
ifj$="k’thenj=2 
ifj$="d"thenj=3 
ifj$="b"thenj=d 
ifj$="z"thenj=5 
ifj$="?"thenj=6 
ifj$s="8"thenj=? 
ifj$="?"thenj=3 

dsti,j)=as$(a) 

nexta 

zi=9:z=8 

z=z+l:ifz=4theniS4g 
fora=sitod4:i=a:ij=g 
ifd$(ta,z)>""theni1498 
nexrtaigoto1l542 
forb=4tolstep-lLial=a-l 

15939 itfasc(tc$(al%8+tb))<>32theni1S2d 
151@ ifdsta,b)>""andascic$taltstbti 
))<>32thenj=b:gotol?28 

1528 nextb 

1539 gotol456 

154€ zi=zi-1:ifzi=dtheni1639 

1559 fora=s1tod: i=a:j=d 

1568 ifdsta,zi)>""theniSsg 

1579 nextaigotol195g 

1588 forb=4to8:al=a-l 

1578 ifasctc$(al%8+b))“>32theni1dld 
1898 ifdsta,b) >""andasc (c$lal%stb-i 
))<>32thenj=b:goto1l?98 

1818 nextb 

goto1l5?g 

tora=1to9 
ifds(a,94)>""theni=sa: j=4:g0otol? 


nexta 
printhe$c4$"kann keine karte | 


forasitolS@@:nexta 
printhesc4$" 
goto92g 

SJayri 
printhesc4$"ich 
forasitols 
itfasta)=sdsti,j)theni?5ß 

1749 nexta 

1758 il=-i-l:ic#til%8tj)=atta)tsistred 
$+c1l$+si$tc2$+3$ (a) 

1788 printrnsmid$ta&t(ta),2,i)mid$t(a® 
(3),5,1) 

1778 a385(a)=""idtli,j)=" 

1788 gosubsäf:goator3sd 

1798 ,.printcl# 

1388 printchr&(i14)tabt12)uh$"SPIELR 
EGEL ! 

181@ printtabtl2})yx$ 


lege.."5 


Kartenspiel —_ Pc= | — Adressenverwaltog. 


>29 printed$"Das Spiel "ve$"BAUER 


Em 


"LEGEN"db$" hat 32 Karten." 
2539 printcd$"davon bekommst Du 1 
& Karten und ich 
249 printced$"15 Karten. 
258 printcd$"Wer die meisten Ba 


Es 


hat, beginnt. 


1289 printc4$"Es muss immer mit ein 
em Bauern begonnen 

1378 printc4$"werden. Z.B. wenn Du 
-IK-BAUER legst, 
1389 printc94$"dann kannst Du PIK 
-DAME, dann FIRE” 


1575 printc4d$"KOENIG und danach PI 


“-ASS legen oder" 
179% norintc4$"von PIK-BAUER, FIK-ZE 
=N, NEUN, ACHT bis" 
1718 printc4S8"SIEBEN. „era... . rrıwh 


Ss’Hast Du gelesen ?'rfs",.(J)" 
1928 geta&:ifa$s=""thenlr?G 
1939 printcel$c4$db$"Gewuonnen 
r, der zuerst alle seine" 
1749 printcd&"Karten abgelegt hat." 
1958 printc4s"Du kannst immer nur 
eire Karte legen," 
1748 printcä4$"Wenn Du 
legen kannst, gib" 
1778 printc4$"bitte >"uns$"Xt"dbs"t e 
in, sonst: " 
1788 printcd$"herz = "uhS"s"dbs" : 
pik = "uhs"a"dbs" i- 
19978 printcdä$"karo = "uhs"z"dbs" ı 
kreuz = "wuh$&"x"dbs$" i 
2808 printc4$yves$"Beispiel"abg": 
-a55 = a3 ! herz-zehn = sz" 
Zz818 printcd4$"..........karo-ass = 
za: kreuz-dame = ud" 
2828 printcd4$rn$suhS"KOENNEN WIR BEG 
ENNENFTEFERI re ED 
2838 geta$: ifas=e""then?gsg 
2849 printchr$(142):190t0478 
2859 rem kartenspiel 
2Asgd rem A6dsr7il bytes 
287@d ren 096053 
2088 rem 980371 bytes 
2878 rem doaari 
2180 rem 998572 bytes string 
Zz118 rem 952839 bytes fre (8 
Z1i28 rem =====2=2=2=22=222=2=2o022 22222202 = 


Nutzen Sie 
unseren kosten- 
losen Anzeigen- 
Service 


hat de 


keine Karte 


pik 


m m mn nn mn mn mn u an un a 


px 


memory 
programm 
variables 
arrays 


La | a u | u | Ku |; 
nam NO 


18 rem adressenverwaltung 
28 rem (p) commodore welt = 
39 rem ==========S=22S=22 2222222202222 
48 rem (c) by ; 
S®$ rem erich jakobeit 
sd rem 
’S rem 
Sg rem 
99 rem 


version 3,5 498z/ascii 
ceiö’ciiös/plus 4 +1531/1541 


184 zi$=chr$(42):z22$=chr$(45) 

119 fa$=chr$(139) :fb$=chrs$(131) 

128 forg=1toil4:qi$=ql$+tz2$:nextgq 
139 forgq=1t023: q2$=q2$+z2$:!nextgq 
149 forg=1told:qg3$=q3$+zi$!nextg 
159 torgq=1to1l9:q4$=qg4$+zil$inextg 
168 gds=oßs+tfas+t"p ause I!" 

178 color@,1:colori1,2:color4,1:gosu 
b 2849: goto16454 

1824 rem %%%* programmkopf *%* 

198 scnelr:ichar ‚8,3, "adressenverwa 
Itung" 

229 return 

218 rem *%%%* fehlermeldung **%* 

224 char ‚„8,23,fe$ 
238 for i=1 to Sea 
24% char ‚8,23," 


U} 


next i 


259 return 

268 rem %%%* koepfe programmteile *% 
278 gosub 189 

289 char ‚8,10, q48$ 

298 char „8,11, "#"+pts(f)+rtg" 

sS2#8 char ‚„8,12,998$ 

318 return 

328 rem %%%* daten in rechner *%* 
339 fe$="keine data in rechern !" 
348 gosub Z1i@ 


358 scnclr : 1=28 : for i=ß to id: 1 
=1+1 

368 char ‚„8,@+i+1,a$(i) : color 1,2 
+1 j 

378 a$(1)="programmfunktionen":ias(2 
I)=q2$ 

3894 a3$(3)=">iX datei laden"sas(d)=" 
»2<£ datei speichern"!a$(5)=">37 adr 


essen eingeben" 

398 a$(6)="}4X adressen aendern":a$ 
(?7)=">5<X adressen loeschen" 

45 a5lg)="}äi adressen ausgeben"ia 

$(9)="}7£X programm beenden" 

418 ast1d)=g2$:next i 

428 char „8,23, "auswahl >i - 7: 
"input # 

438 if #=8 or >? then fe$="unguelt 
iger wert !:" 2 gosub 21 8: goto 42 

[7] 


448 on # goto 459,699, 759,998, 1479, 39 
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13298,1598 938 if z=8 then gosub 329,358 
458 rem %%* datei laden %%* 948 for i=i to ? 
469 gosub 25% 958 char ‚„8,3+i,1$ti)+fsli)+rdstzz,i 
478 char ,‚4,16,"bitte datenkassette ) 
einlegen und " 968 next i:char,5,16,"fi=vorwaerts 
488 char ‚4,17,"zurueckpulen!" + fZerueckwaerts":char,5,17,"f3=aen 
479 char ‚4,18, "druecken sie danach dern + f4=beenden" 
return":iinput x8$ 978 get x$ : if x$="" then 978 
538 open 1,1,9, "adressen" 988 if x$="m" then 359 
51@ input #1,z 99A if x$="v" and zz(iz then zz=zz#+1 
5298 tor y=1 to z : for i=l to 7? : goto 928 
538 input #1,ds$(y,i) isaa if 
548 next i : next y x$="r" and zz>i then zz=zz-1 : goto 
558 close i 928 j 
562% scnclr 1818 if x$="a" then 1938 
578 char ‚„?7,18,"daten sind geladen" 1828 tfe$="eingabefehler !...zcrsnr0s 
588 for i=1 to 899 : next i ““.." 2 gosub: 21 9: goto 998 
598 goto 35% 19838 char ,„25,18,"senooeronnnunnnn 
688 rem %*** datei speichern 3%%* ."schar ‚?,18,"feldrummer >1 - ?7<" 
s61@ gosub 26% input x 
628 if z=@ then gnsub 328 : goto 35 1948 it x{l or x?7 then scnelr : 90 
{7} to 1938 
636 char ‚4,16, "bitte datenkassette 1858 char ‚„?7,18," neuer inhalt.... 
einlegen und " :tsinput d$(zz,x) 
648 char ‚4,17, "zurueckpulen!" 1868 goto 978 
652 char „4,18,"druecken sie danach 197% rem *%%%* adressen loschen *%** 
return"sinput x$ 1888 scnclr:char ‚11,5,"adressen lo 
669% open 1,1,1,"adressen" schen" 
678 print#1,z 1998 if z=d then gosub 328 : goto 3 
688 tor y=i1 to z : for i=i to ? sg 
678 print#1,d$(y,i) 1188 char ‚11,15,"vorname:" : input 
788 next i : next y dis 
718 close 1 i 11i1@ char ‚il,1ö6,"name ı® = Input 
728 char ‚„?,18,"daten sind gesicher d2$ 
1 1128 x=1 
738 tor i=1 to 880 : next i 1138 if ds(x,2)=di$ and d$(x,3)=d28$ 
748 goto 2698 then 1178 
758 rem %%* adressen eingeben #%%* 1148 if xiz then x=x+t1 : goto 1139 
768 scnclr 1158 fe$="name nich gefunden !" 
778 z=z+i 11588 gosub 21 @: goto 358 
788 for i=1 to ? 1178 scncelr 
798 char ‚„?,94ti,#8S(ji) 1188 or i=i to ? 
888 input dS(z,i) 1198 char „il,5+i,1$sti)trf$lti)+tdsix, 
sid next i i) 
828 char ‚?,18,"daten richtig einge 1298 next i 
geben (j/n)" : x$="" : input x$ 1218 char ‚?,18,"adressen loeschen( 
838 if x$="j" then 869 j/n)"sinput x$ 
848 if x$="n" then z=z-1 : goto 7598 1228 if x$="j" then 1259 
858 goto 828 1238 if x$="n" then 359 
868 scncelr : char ‚?,18,"weitere ei 1249 goto 1218 
ngaben (j/n)*"s x$="" : input x$ 1259 for y=x to z-1 
878 if x$="j" then 759 1268 tor i=1 to ? 
889 if x$="n" then 359 1278 ds(y,i)=d$(y+t1,i) 
89728 goto 859 1288 next i 
999 rem *%* adressen aerndern %%* 1298 next y 
919 zz=i isa@ z=z-1 
928 scncelr : char ‚il,il,"adressen a 1319 goto 358 
endern" 1328 rem *%%%* adressen ausgeben 3%%* 
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>58 scnelr :char ‚8,5," adressen 1699 data "x======2222=222=2====222== 
»ısgeben" zsz=22=22=2=2=2 222222," 
#2 if z=ß then gosub 328 ı; "goto 3 1788 data "x=====2=2=2=S=22=22=22=220eooene 
Zu zsz=me=S222=2S52=2222" PH 
>52 char „7,18, "drucker oder bilds 1718 data "x===========commod 
mirntd/b)":input 98 Or g=z=====22==2x" 
Sse8 if g&="d" then open 1,4% 5 1728 data "y=s=s===2=2=2=2=2=2=222=2=22=220u2=e= 
3”8 scenelrichar ‚„8,4,q1$ Ss2=2=22=222==2222y" 
>22 char „8,5, "suchbergriffe:" 1738 data "x==s===2=2=2=22222222=2==2=2=2=== 
58 char 5,0, qals sz22=a=2=2=2==222522yY" 
=22 char ‚„8,9,"vorname :":input d 1748 data "y==s====2=2=2====2=22= 16 + il 
5 ö &ö SEz=2=2=2=2=2=2=2===y.! 
2!5 char „8,11,"name "input d 17589 data "x=s=====2=2=22=2=2 22222222222: 
5 ’ zs2=2=2S52=2=2=2m2=2=2==2yx" 
#28 scncelr : char „14,12, "bitte wa 1769 data "x=ass===2=2=2=2=2=2=2222=202==2=== 
en " zszz=2=22=22222=22ng! i 
for i=1 to 899 :next i ° x=l 1779 data "y=e======2=S2eeeeeeeeeeaenn 
-*38 if d$(x,2)=di$ and d$(»,3)=d2$ zsess2=2=mm22s222g" 
nen 19498 17898 data "KKRKKKRRRKIKI TI TNR 
1839 if x<z then x=x+i : goto 1438 KKKRKRKRRRRRIIRIN 
„59 fe$="name nich gefunden !* " 1799 data " KRRKRKRKRRERKRERKRKRIRTR 
-2539 gosub 21 8: goto 354€ EREKRKRRRKKIRE 
-#79 if g9$="d" then print#i 1599 data " FIIR 
458 scnclr:1=d:for i=si to ? :lelt 0 KRRKEREIRNEK " 
ı 118 JätE ",.u% ‚ZZZSSZSZ2222 2222222222 
#78 if g$="b" then char ‚8,2,"adre Ssesz2=m22e==2= 
ssen ausgeben":ichar „8,5+ti+tl,f$(i)r 1828 data ".......von erich jacobei 
dsix,i) E 198555 * 
1598 if g&="d" then print#l,fsti);d 1539 data ".....„Fass==2=2=2=2=2=2=2=2=2=202222 
Six, i) zzz2s22Ss=2=2nH# 
ıSi@ next i 1849 data I... KIT Ran 
1528 char „?,23,"druecken sie retur nn KRRRKRK" 
„’:input x$ 1359 data "Yosau KR ann 
1539 next y nn HKHKRE" 
1548 gosub 2698 1889 data "ee KK ann ne 
1559 char „7,16, "%%%%* dateiende %#* nn KRERR" 
2%" 1879 data "ou RI F ana e 
15859 char „?,18," druecken sie retu nun trtRrH" 
Fn "; input x$ 1880 daR "a a RN ar 
1578 if g$="d" then close 1 nat" 
15882 goto 358 1898 data "onunus a. „ „FEssssaaeeeeee 
1598 rem %%%* programm beenden %%%* s=s=2====' 
1888 scnclr : char ‚11,5,"programm LI900 data N a ans 
beenden":for i=1 to Sichar „i11l,7+i, IE a a Ta Be a le a ae ie mie 
g3$ ee 


16818 color 1,2+ti:nexti:ichar ,‚6,18," 1918 next i 
sind alle daten gesichert (j/n)"tinp 1728 char „9,23," weiter mit >retu 


ut x$ EN. n 

1828 if x$="n" then 358 1938 get a$ :if a$="" then 1938 
1838 if x$="j" then 1958 1746 goto 359 

1648 goto 1619 1958 scncir 

1859 scnclr rem #%* t - bild *##* 1968 char „14,18, q9$:printchrs$(131) 


1658 for i=@ to 23:read a$:char ,®, 1778 char ‚19,23, "weiter mit >retur 
B+i,a$:s=int(rnd(M)*15+2):color 1,5 n< " 


1678 data" xıcccKKKKNNEKKKIKKNKNKNN 1958 get a$ : if a$="" then 1988 

XKXAXRKKRANKKKNKK" 1998 goto 359 

1688 data "x adressenver 29958 rem %*%* adressentabelle #%* 

waltungx" 2018 dim d$(186,7) Ss» 
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Adressenverwaltg. Rate mit a ar 


2829 ptst1)="...datei laden.. 
{2)=" datei speichern " 

2938 pt$(3)="adressen eingeben":pt# 
{4)="adressen aendern " 

2049 pt$s(5)="adressen loeschen":pt# 
(6)="adressen ausgeben" 

2958 pt$(?7)="programm beenden " 
2968 #$(1)="anrede....:":f$(2)="vor 
name snef$5(3)="name...nnn:" 

2978 #$(4)="strasse...:":1#$(5)="plz 
/ort...:"!f$(6)="telefon...:":f$(7) 
="bemerkung :" 

2888 key 1,"v" : key 2,"r" 

2898 key 3,"a" : key 8,"m" 

2189 1$8(1)="1>":!1$(2)=S"2>" 1E(I)="3 
yrelgstd4)="d4)3":1$(5)="5Y)rı 186 )="6>" 
ı1$(7)="7>" 

2118 return 

2128 rem adressenverwaltung ==== 
2138 rem 812277 bytes memory 
2148 rem 9885683 programm 
2158 rem 9098899 variables 
2169 rem AAOG9O bytes arrays 
2178 rem Sdggadg bytes strings 
zi88 rem 9988 free (9) 
2198 rem ======2=2=2==2=2m 2222222252 = 


RATE NIT 


In diesem Spiel sollenSie Auf dem Bildschirm wer- 
Wörter erraten, indem Sie den die Buchstaben, die 
Ihren Tip, in Form von Sie schon getippt haben, 
einem Buchstaben ein- angezeigt. 

geben. Sie können entweder zu 
Sobald Sie das vollständi- zweit oder gegen den 

ge Wort erkannt haben, Computer spielen. 
tippen Sie es vollständig 
ein. ter gespeichert und wählt 
Sie müssen aber Ihre Auf- zufällig eins aus. 

gabe innerhalb von 40 Die Wörter können erwei- 
Versuchen lösen. tert oder ergänzt werden! 


„nt 


nınınmanhnm 


11 use | Base | Bu | Bu | Bu | BE 
| [u | au | Bus u Bu 20 


MSX 


suchen kompetente 


COMPUTER-JOURNALISTEN. 


Die künftigen Kollegen sollten nicht nur ihr 


Handwerk beherrschen, sondern auch die 
Rechner, die dazu gehören. Außerdem erwarten 
wir ein ausgeprägtes Interesse für Themen rund 

um diese Computer-Typen. Ihre Bewerbung 
mit den üblichen Unterlagen bitte an 


AKTUELL-GRUPPE, Postfach 1107, 
8044 Lohhof, z.Hd. H. Seibt. 
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Der Computer hat 80 Wör- 


189 
118 
128 
138 
put 
148 
158 
168 
178 
188 
int 
198 
228 
218 


rem rate mit 
rem (p) commodore welt ts = 


(c) by joannis tholulis 
hattersheim 


version 2.9 aßz/ascii 
+ 1539/1541 


a3$=chr$1(147) 

print 3$ 

goto 448 

print"das zu erratende wort":in 
x$ 

itlen(x$) >38orlen(x$)=dtheni119 
dim e$tlen(x$)):dim d$149) 
print a$ıx=xti 

if x=41 then 348 
fort=1to4@:printd$stt);:nextt:pr 


print"versuch "5x 
for t=1 to len(x$) 
it e$tt)="" then print"-"5:goto 


238 


228 
238 
248 
258 
288 
278 
2838 
278 
388 
319 
328 
3328 
348 
358 


print e$tt); 

next t 

print 

inmut"tip: "398 
iflenty$)<>landy&(>x$then3?78 
ds(x)=yS$ 

if x$=y$ then 388 

for t=1 to len(x$) 
z$=mid$(x$,t,1) 

if z$=y$ then e$(t)=y$ 

next t 

goto 169 

print a$ 

print"leider haben sie es nicht 


geschafft" 


358 
378 
ch" 
33% 
srEg 
ig" 
22777] 
418 
428 
438 
448 


t waehlen 


458 
468 
478 
438 
4978 
Sag 


goto 498 
print:print:print"wort war fals 
for i=1 to i1ßdd:inext i:goto 16% 
print a8 
print”"gratulation,das war richt 


print:print:print 
input"noch mal (j/n) 
if p$="j" then run 
print a$:end 
input"soll der computer ein wor 
(j/n)"59$ 

if-9$="n" then 138 

if g$="j". then 4989 

print a$:goto 49498 

wo=1d8 

lzsint(rndtti)ts@) +1 
fort=itolireadj$:nextt 


"sp$ 


in ıNn ıÄ 


a3 


=.# read x$ 
=23 goto 158 
33 data 


.zomputer , haus ,maus,ratte,hund,tel 
®s«op, fernglas, fernseher ,‚saft 


2 data 


‚stick,commodore,zeitschrift,haus 


eıster,bild,uhr,bett,schrank 
>& data muelltonne,schreibtisch, st 
„i,cursor,warenhaus,schaufel,axt,u 


data kamel,loewe,adventure,mikr 
kop,tornado, foxbat,arabien, pyrami 


rn 

3 data kleber,schule,tafel,kamm,h 
are,zahnprotese,glatze, programm, kr 
d 
3 


data woerterraten,papier,firma, 
*abrik,software,hardware, lexikon,he 


„d,jupiter,pluto,weltraum,biologie 
528 data musik,mozart,dallas,frau,m 
ann,schach,handball,fussball,ski,jo 


deln 


519 data karate,judo,china,boxen,ra 
„bo,karabiner,panzer ,erde,welt,kalo 


rien 
28 
838 
549 
854 
669 


data garten 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


srl 


mm maoz==-- 
=> 2 ZZ 222 


Sie sind dazu berufen, ei- 
nen sagenumwobenen 
Schatz zu suchen. Er be- 
findet sich in einem unter- 


irdischen Höhlenlabyrinth. 


Viele Gefahren lauern auf 
Sie: Trolle, Wichtelmän- 
ner und Politiker. 

Doch lassen Sie sich nicht 
unterkriegen. In Ihrer 
Hartnäckigkeit liegt Ihre 
größte Chance. Nutzen Sie 
alle Ihnen gegebenen Mög- 


rate mit = 


memory = 
program = 
variables = 
arrays = 


m mn m mn me mn mn mn mn mn mu mn u mn mn 
SZZ2ZI ZI 2Z2 22 Z—zzzzm mm 


lichkeiten aus. Nur so kön- 
nen-Sie die Höhlenbewoh- 
ner überlisten, nur so wer- 
den Sie lebend und — vor 
allem — mit Schatz aus 
den dunklen Gängen ent- 
kommen. 

Sollte Sie allerdings vorher 
ein Schreikrampf oder ein 
Nervenzusammenbruch er- 
eilen, müssen wir uns von 
jeglicher Verantwortung 
distanzieren. 


g 
Lg — 
g 
[nm 
LL. 
4 x 
r 
Br) = 
an 
L re) 
m 
> ® 
TT = 
Ei = 
= 
3 
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für T199-4A 
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18 rem the cö44 quest sarzzeszmcendd 
28 rem (p) commodore welt = 
9 ren SSEsSzSS=2=2S2ZSzESEszzemzmzszuzen 
48 rem (ce) by ph. bertschg = 
sg rem = 
sd rem In 
72 rem version 2.9. 49z/ascii = 
89 rem c 64 + 1539/1541 = 
9% rem SESzmESZZESZESZZESSZEZESSESZES 


189 goto36d 

118 printchrs(19)j:Ffori=itol:print: 
nextiireturn 

128 printchrs(19)J:fori=eito2:print: 
nexti:sreturn 

139 printchrs(i9)j:fori=i1to3:print: 
nexti:sreturn 

148 printchrs(19)}:fori=ito4:print: 
nextiireturn 

159 printchr#(19)j:fori=itoS: print: 
nexti:sreturn 

1688 printchrst19) J:Ffori=itos:print: 
nexti:return 

178 printchr#s(19) 
nexti:sreturn 

188 printchrst(i9)):fori=itoß:print: 
nextisreturn 

198 printehrsti9)J:Forimito9:print: 
nexti:return 

288 printchrs(19)):Ffori=itolß:print 
ınexti:return 

218 printchrsti19)):Ffori=eitoll:print 
ınexti:ireturn 

228 printchrst(19)j:fori=eitol2:print 
inexti:sreturn 

2328 printchrst19)j:fori=eitol3:print 
ınexti:sreturn 

248 printchrsti9)j:Ffori=eitold:print 
ınextisreturn 

258 printchrst19)J:fori=itols: print 
inextisreturn 

268 printchrs(19)j:fori=itold:print 
inextiireturn 

2728 printchrs(19)J:fori=itol?:print 
ınextiireturn 

288 printchrst19)):fori=itol8:print 
snextisreturn 

298 printchrs(19)j:Fori=itoif:print 
ınexti:sreturn 

398 printcehret(19)J:fori=lito2d:print 
ınexti:return 

S318 printchre(19)j:Fforieitozi:print 
inexti:ireturn 

328 printchrst(19)J:forieito22:print 
inexti:return 

339 printchrst(19)j:fori=1to23: print 
inextisreturn 

348 printchrst 19): Ffori=ito2d:print 
ınextisreturn 


ı+ori=1to?:print: 
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358 printcehr#(19)J:fori=eito2S: print 
inexti:return 

369 gosub459%:readm? 

37@ poke53288,9%: poke53281,2:rem sch 

warz 

388 printchrs(5):rem weisse schrift 

398 printchrs(142)irem grossbuchsta 

ben 

482% printchr®(8)irem commodore tast 

e aus 

418 printchrs(147?):printtab(12):pri 

nt"#%* quest %%%":print:print 

42% print" auf cö4 programmiert von 
ph. bertschg" 

438 gosub4788 

449 d=@irem debug flag 

459 printchrst147):printtabti2):pri 
nt"#%* quest %%%":print:print 

46% print"du gingst durch den wald, 
und du" 

478 print"fandest hinter einem busc 
h versteckt" 

488 print”den eingang zu einer hoeh 
le." 

49% print"es heisst, 
n jahren ein" 

59% print"pirat hier seinen schatz 

versteckt hat," 

518 print"aber er ist nie gefunden 

worden." 

s28 print"die unermesslichen reicht 

uemer koennten" 

53% print"noch immer versteckt sein 
" 

548 print!print"du bist dazu bestim 

mt ihn der" 

print"nachwelt zu vermachen !" 

r=eintirndtl1)R49P) Hi 
ifr<1?thengfer:gotod4549 
ifr<33thengfer-16:90t04579 

af=r-32:90t04589 
ifti=@thenti=er:goto56% 

t2er 

dimw(49),m(6,49) 

rem 

+ori=1tom? 

readn 

ifienthend8ß® 

print"”database problem"i,niend 

+orj=itos 

readm(j,i) 

nextjinexti 

718 printiprint:print"tertig gelese 

n ? (taste druecken) "J 

728 pokeil98,% 

7389 getas: ifgß=""then?39 

748 printchrst(147):print:print:gosu 

b2218 


dass vor viele 
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rem 
n=5:md=9:mö=Qd:t=til!p=9:p1=9 
torj=1tomfiwij)=Ainextiprint 
soasub227%@ 

rem 

rem 

rem 

mgemd+i 

rem 

sosubi6i1® 

rem 

s3osub1939 

rem 

s3osub123%@ 

rem 

ift>2@then?98 

ifnc>Sthen?9 

rem 

sgosub11?@ 
printiprint"herzlichen glueckwu 
nsch, " 

#52 print"du hast den schatz gefund 
en !!"!;irem sound 
#42 print"in "m@" 
2 "s+19" punkte." 
72 g90sub4848 

28 print:print"noch eine schatzsuc 
he ?"j 

„72 a9="in"!gosub1459 

1298 onalgoto29039, 1919, 1918 

1218 print:print"auf wiedersehen !" 
1822 end 

1839 rem 

12848 rem 

185@ ift<>nort<dorms+S>möthenreturn 
19858 print"moechtest du ihn mitnehm 
en"; 
1978 
1288 
189% 


INT 


11134 1: 


PENEN 
a8 


as="in":gosub1454 
onalgotoll99, 1128 
print"nun ?":goto1l97% 
1196 t=-I:print 
1118 print"ok, 
Iireturn 

1128 print 
1138 pokesz,33 
1148 print"dann lassen wir 
und du kannst" 

1158 print"noch weiter erkunden." 
1168 mö=mdireturn 

1178 rem 

1182 rem 

1198 s=ß: ift=-Ithens=s+3 

1288 ifp=ithens=s+i1g 

1218 forj=2tomPises+w(j)inext 
1228 return 

1239 rem 

1248 rem 

1258 ifn=tZorp=ithenreturn 


dann nichts wie weg 


ihn hier 


zuegen und du has 


128% 
1279 
1288 
1299 
1398 
1318 
1329 
1338 
1349 
1339 
136% 
irat 
1374 


ifti=et2ort<>-Iithenreturn 

rem 

ifn=löthenp=169 

rem +. 
ifpl>@thenpi=pi+i 
ifn=3thenpi=pi+i 

rem 

ifpi<1Sthenreturn 

print 

gosub4B6% 

print"ploetzlich springt der p 
aus dem" 

print"dunkel und schnappt sich 
den schatz," 
138% print"hah’, 
Iso meinen" 

1398 print"schatz gefunden ?!" 

148% print"jetzt werde ich ihn aber 
besser" 

1418 print"verstecken !" 

1428 print"und er verschwindet um d 
ie ecke mit dem" 

print"schatz." 

p=l:t=t2:return 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

poke198,8 

getg®: ifgs=""theni154g 
sosub4?718 

printgs:print 

rem 

forai=itolen(as) 
ifmids(a®,al,i)=gSthenreturn 
nextalireturn 
rem 

rem 

rem 

n9ayı 

rem 

n8=® 

rem 

g0osub293% 

rem 
ifn=itheni1?28 
nd=n:aß=al 
print:ii=m(al,n) 
ifi=-2theni=n9 
ifd<>@thenprint" 
ifi<S52@then178@ 
rem 

imi-509: forj=@t02088:nexti!goto 


ruft er, du hast a 


fehler "ji 
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1788 oni/i1ddgotol8i1R, 1849 
1798 rem 

1888 n=i:gotol86d 

1818 rem 

1828 n=i-188: ift=-Ithennen+i 
1839 gotol848 

1848 rem A 

1859 n=i-28@: ift=-Iithennean+p 
1848 ifn‘>itheni1998 

1878 rem 

1888 forj=itod:ımlj,n)=2:inext 
1898 m(?-ad,n)end 
1928 rem 

1918 iIfn8‘>2thengosub2278 
1922 rem 

1938 win)elingen 

1948 ifmtl,n)<>=-2thenreturn 
1952 rem 

1989 jemt&,n) 

1978 ifm(i4,n)>1@@itrnd(i)theniem (5,1 


1968 ifmt2,n)>12@&rndti)theniem(3,n 
1998 ifd<>Böthenprint".....fehler in 


ZB2R rem 

2818 rem 

20228 goto1738 

228329 rem 

2238 rem 

298528 print 

2868 print"----- wohin ? "I 

2278 a®="nohrwsp”:gosub145% 
2889 ifalt8then2149 

22899 print"wohin willst du gehen ?" 
2128 rem 

2118 gosub2218 

2128 rem 

2138 gosub2279: 9002832 

zi4@ iIfalt?then229Q 

2152 rem 

z216® gosubi1?2 

2178 print"du hast "s" punkte !" 
218% rem 

21929 goto2d58 

2288 return 

22128 rem 

2228 rem 

2238 print"tippe n,s,0,4,h,r fuer ; 


22428 print"norden, sueden, osten, W 

esten, " k 

22598 print"hoch, runter oder p fuer 
den spielstand." 

226% return 

2278 rem 

2288 rem 

2298 ji=int(n/S):ijen-S#i+i 
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2309 oni+1g0t02320, 2330, 2348, 2359, 2 
2318 oni-490t02379, 2389, 2399, 2408, 2 
2328 onjgoto2529, 2569, 2590, 262%, 266 
2339 onjgoto2690, 2730, 278%, 2839, 286 
2348 onjgoto2889, 2920, 2960, 2990, 305 
2359 onjg0oto3190, 3140, 3200, 3248, 328 
2360 onj90t03339, 3390, 3449, 3460, 359 
2378 onjg90to3530, 3570, 3620, 3660, 368 
2388 onjgoto3730, 379%, 3840, 388%, 391 
2399 onjgoto3940, 3980, 4010,4050,412 
2409 onjgoto4169,4190,4230, 4280, 436 
2412 onjgoto4399, 4420, 4459, 4489, 451 


2428 ift<>nthen2452 
2439 printiprint"der schatz ist hie 


244% gosub4?782 

245% iftt>t2then2319 

2469 ifti=t2then2312 

2478 ifti<>nthen2$19 

24889 print:iprint"eine schrift an de 
r wand sagt :" 

249% print"...piraten lassen ihren 

schatz nie" 

2508 print"....zweimal am selben or 
t,*" 

25128 return 


252% rem 

2532 rem 

23548 rem 

25598 data 49 

2560 data 1,2,9,2,9,9,8 


2578 print"du bist in einer sackyas 
se !" 

2588 goto2429 

259799 data 2,-2,181,-2,8,98,8 

2629 print"in die richtung kannst d 
u nieht. ";print 

2&1@ goto2429 

26528 data 3,33,2,1,19,196,4 

2638 print"ein tunnel verlaeuft nor 
d-suedlich, " 

2698 print"im westen ist eine oeffn 
ung." 

265% 90t02428 

2668 data 4,3,38,2,11,2,1 

2678 print"du bist am rand eines sc 
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"warzen schachts" 
Ze32 90to2428 
2#52 data 5,8,8,13,19,8,16 


2722 print"du bist vor der hoehle, 
sach sueden" 

2712 print"geht’s rein .„" 

2722 90t02429 

2733 data 6,18,3,2,19,2,43 

2743 print"hier haust der grosse tr 


2758 print"zum glueck ist er gerade 
nicht zu hause." 

27823 print"aus der nische im sueden 
"oert man":print"ihn schnarchen" 
2772 30102429 

2788 data ?,-2,181,-2,0,2,%@ 
2798 print"der grosse troll ist da 

2289 print"sieh zu, dass du wegkomm 

sr !tı "rem sound 

2219 print 

23229 soto2428 

23329 data 8,18,18,15,19 „946,9 


234% print"du hast dich im wald ver 


laufen, " 

2358 9002428 

256% data 9,-2,33,3,1,8,-2 

2878 390102429 

2389 data 19,-2,191,-2,9,9,8 

2379 print"du kommst nicht weit, we 


nn du durch" 

2788 print"den fels willst. ":print 
Z71@4 goto242% 

2928 data 11,1,13,4,2,1,2 

273% print"du bist am grund eines s 
chachtes." 

274% print"ein bach plaetschert am 
boden entlang." 

2759 90t02429 

2969 data 12,364, 2,1,2,1,2 

2978 print"jetzt bist du in einer s 
ackgasse !" 

2789 goto2429 

299% data 13,2,37,2,1,11,149 

3229 print"hier ist eine erweiterun 
3 der hoehle." 

s@18 print"man sieht eine russige s 
telle, wo" 

3929 print"jemand eine fackel an di 
e wand gelehnt" 

3832 print"hat. ueber dir haengen z 
sckige felsen.” 

3448 g90t0242% 

3859 data 14,13,1,19,2,31,31 
326% print"du bist in einer schluch 
t, hoch " 

39378 print"ueber .dir steht an der w 
and: " 
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3088 print".seersenss«bilbo war hie 
r "n 

3098 90t02428 

3109 data 15,-2,191,-2,9,9,9 

3118 print"du kannst doch nicht li 
egen, du bist" 

3128 print"doch kein vogel 
3134 90t02429 

3148 data 16,5,33,2,18,1,196 

s15@ print"du bist in einer niedrig 


IN;print 


en kammer. ein" 

316% print"enger tunnel geht nach o 
sten und du" 

3179 print"kannst auch nach sueden 

oder westen gehn"j 

318% print"man sieht einen lichtsch 


ein im norden." 

3199 qgoto242%8 j 

32898 data 17,-2,121,-2,9,9,8 

3218 print"hier ist es zu eng, du k 
ommst mit dem" 

3229 print"schatz nicht durch. "!pri 
nt 

3232 90t0242% 

3249 data 18,-2,121,8,9,9,%@ 

3259 print"es sieht so aus als ob d 
u die hoehle" 

3269 print"nie findest." 

3272 goto2428 

3289 data 19,224,2,2,19,1,42 

3298 print"du bist oben angekommen. 
Li} 


3388 print"unter dir steht an der w 

and: 

3318 print"....,.bilbo war hier" 

3328 goto2428 

3339 data 28,226,1,2,43,25,2 

334% print"du bist auf der noerdlic 
hen seite einer" 

3359 print"’spalte die zu breit ist 
zum" 

3368 print"ueberspringen. 

echos von unten” 

3378 print"deuten auf einen endlose 
n abgrund hin.” 

3389 90t02429 

3379 data 21,1,2264,2,2,38,25 
34238 print"du bist-in xanadu. 
fliesst alph," 

3418 print"der heilige Fluss durch 
hoehlen" 

34289 print"unermesslicher weite in 

meer ohne sonne." 

3439 90t0242% 

344% data 22,-2,33,13,50,29,38 
3459 90t02429 

3469 data 23,2,1,2,31,2,2 


hallende 


unten 


3478 print"du bist auf dem sims ueb 39 


119 


« 


Tre Sc 337 Quest 


er dem verlies" 

3488 print"mit der quillotine,.” 
3499 goto242% 

3302 data 24,-2,181,19,8,82 ‚2 

3518 print"da hoert man den riesen! 
bloss zurueck!":print 

3528 goto2428 

3538 data 253,21, 28, 2,2,1,1P 

3549 print"du bist in der hoshle de 
s riesen." 

3559 print"sie zu, dass du nicht hi 
er bist, wenn":print"er kommt!" 
3549 goto2429 

3578 data 26,-2,65,-2,59,11,14 
3388 print"du bist in einem verbote 
nen gebiet." 

3598 print"hier wird dieses spiel 9 
ebraut.":print"besucher sind nicht 
zugelassen." 

3688 print"also geh 
36518 90t0242% 

3628 data 27,2,98,2,2,21,29 

363@ print"du bist im kristallpalas 
t. die waende" 

3648 print"erklingen in erschauernd 
er musik." 
3659 9002429 
36568 data 28, 
3678 90102428 
3688 data 29,2,942,2,13,1,1 

3698 print"du bist am gipfel eines 
sigantischen" 

3788 print"stalaktiten. 
g" 

3718 print"runterrutschen, kaemest 
aber nicht":print"wieder rauf." 
3728 goto2428 

3738 data 39,34,34,2,1,94,43 

3748 print"du bist in einer kleinen 
grotte." 

3758 print"im sueden liegt ein buch 
mit dem titel:" 

3768 print"jane’s fighting ships’ a 
us dem" 

3778 print"jahre 1763." 

3782 901024928 

3798 data 31,14,14,23,2,1,4994 

3828 print"du bist im guillotinen-v 
erlies," 


Itzprint 


-2,68, 221,58, 14, 19 


du koenntes 


3818 print"ein spitziger felsen wac 
kelt auf dem" 

3828 print"sims ueber dir." 

3839 90t02428 

3849 data 32,-2,121,516,9,9,8 
3838 print"du rutschst ab! die fels 


en runter und" 
386@ print"du kannst dich nicht fes 
thalten!";print 
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3878 9002428 

3889 data 33,2,1,2,1,116,3 

3898 print"”der enge tunnel geht um 
die ecke." 

3999 9002428 

3918 data 34,1,35,2,1,39,39 

3928 print"du bist im kleinen gewun 
denen irrgarten."}| 

3939 g90t0242% 

394% data 35,2,1,2,37,34,36 

3958 print"du bist im kleinen trick 
reichen" 

3968 print"irrgarten." 

3778 90t02428 

3988 data 36,35,2,1,37,34,12 

3998 print"du bist im gewundenen kl 
einen irrgarten.”"} 

4999 goto242% 

4818 data 37,2,1,33,2,13,2 

482% print"du bist im trickreichen 
kleinen" 

4838 print"irrgarten," 

4248 90102429 

#259 data 38,2,21,2,116,1,2 

49689 print"du bist in einer hoehle, 
die offenbar" 

4878 print"von neandertalern bewohn 
t wurde (wird?)."j 

4888 print"an der wand sind ocekerbi 
lder von" 

429% print"wisents, 
mit knochen" 

4188 print"bedeckt, aber ein kleine 
r schacht ist":print”"im boden." 
411 9oto2428 

4128 data 39,2,98,2,32,21,29 

413% print"du bist in einem schwarz 
en loch, die" 

4148 print"schwerkraft ist uebermae 


der boden ist 


chtig.! 
4158 goto242% 
4168 data 49,49,49,2,2,49,41 


4178 print"du bist im labyrinth." 
A188 90102429 

419g data 41,989,49,99,2,49,39 
4288 print"du bist im labyrinth. hi 
er ist’s sehr" 

4218 print"dunkel.” 

4228 90t0242@ 


4239 data 42,28,28,28,28,28,28 
4248 print"du bist im ashram. es ri 
echt stark nach" 

4259 print"gewuerzen und weihrauch, 
und alle" 

426% print"richtungen scheinen glei 

ch. n 

42728 g0ot0o2428 

4288 data 43,9,9,9,2,8,8 
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“252 printchr#st147) :g90sub229: printt 

“Si#):print" hier ruht ein unbekann 
zer":print 

“328 printtab (5) "gestorben durch zu 
srossen":print:'printtab (35) "forsche 
Pdrang" 

“3123 gosub3@@:printtab(5):print"in 
Ziesem grabe ruhst nun du" 

“322 gosub32@: printtab(P):print"ame 
enrinttab(9) 9,00 na 

“332 gosub4719:gosub4719 

“342 getaß: ifasl>""thenend!: 

“3523 goto4318 

“3423 data 44,31,2 ‚„95,2,2 ‚2 
“3728 print"du stehst an einer trepp 
®, die"iprint"nach oben fuehrt" 
“358 90102428 

4372 data #45,195,2,1,44,2,49 
“4238 print"ein folterraum umgibt di 
=n.":print"eine leiche haengt an de 
”" decke!" 

“418 90t02428 

“429 data 46,2,8,15,43,1,95 

“#438 print"du bist auf einem friedh 
s#*":print"am boden stehen graeber o 
tten," 

“44% 90102428 

“459 data 47,-2,181,-2,9,2,8 
“#4&% print"auf dem Friedhof lauert" 
print"der pirat auf dich" 

“479 9002429 

“48% data 48,49,2,1,2,2,1 

“499 print"du bist in den gemaecher 
n";print"seiner majestaet von apple 
plus." 

“599 gato2428 

“518 data 49,42,1,2,2,43,48 
4528 print"eine ausgeraubte schatzt 
ruhe steht" 

4538 print"in diesem gemach. "iprint 
"ein fenster ist im westen" 

“549 9002422 

4558 end 

4569 ongfgotodRd, 560,420, 409,360, 6 
2,560,569,369,569, 409,400, 600,690, 5 
49,56% 

4578 ongfgoto569, 569, 499,699,6499,36 
2,699,369,569,5640, 560,569, 369,690, 6 
29,569 : 

4589 ongfgotos99, 690,699, 609,600, 58 
2,569,569,569, 690,569, 699,699, 620,6 
29,600, 698 

4599 rem sid initialisieren 

4804 s=34272 

a6l® hf=s+l 

4628 vo=s+24 

4838 sz=s+4 

4649 pokes+3,% 


4659 


pokes+6,% 


466®@ rem sid loeschen 


4678 fFori=sstos+24 


4689 
IT 7] 
4798 


pokei,® 
next I 
return 


4718 rem eingabezoom 
pokes+3,8:pokes+3,9 


472% 
4739 
4748 
475% 
4768 
477% 
478% 
479% 
49a 
4518 
4829 
4839 
4949 
4859 
4369 
4878 
4899 
4898 
4798 
4718 
4728 
4938 
4949 
4938 
496% 
4778 
49788 
4998 
sag 
591% 


pokevo, 13: 
pokeh#f,? 


pokesz, 33 


fordr=1t0254: nextdr 


pokesz, 32 
return 
rem zoom 2 


pokevo, 15: pokes+35, 3: pokes+4,3 


forxt=1t0o1l598 


pokehf, xt 
pokesz,33 
pokesz,32 
nextxt 
return 

rem zoom 3 


pokevo, 15: pokes+S, 9: pokes+&4,9 


forxt=228tolstep-i 


pokehf, xt 
pokesz, 33 
pokesz, 32 
nextxt 
return 

rem the c64 
rem 9838911 
rem 8812013 
rem dAIAAFS 
ren GOABAAS 
rem 00892916 
rem 9824784 


quest 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


zsszs2zs2eem44 
memory 
program 
variables 
strings 
arrays 
free 


0000 
0000 


00 


ı\f0 
0% v% 


[= 
DLLUCOEN 
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Mixed Datei Er — 


id rem mixed datei =nnezunnmezan | 28 


22 rem (p) B1/84 commodore-welt = 
39 rem smezz2esSmzsszeszz2ssgszzZSsSzzsen 
aß rem (c) B1/8& by = 
s@ rem harald beiler = 
dd rem = 
8 rem version 7.8 48z2/88z/ascii = 

= 


88 rem 128 pc + 1338/1341/157?1/dr 

1-7] rem BSEZEBEZESZEZEESEBRSSESZENEZTCREnS 
1889 color 

8,1:color4,1:color$,14:scnelriprint 

ehrsti4)chrstil)chr#(27)chr# 169) 
1i®@ chari1,4,5,"T = reine Textdatei. 
Inner 

128 chari1,4,7,"Z = Text mit Zahlen 
+ Addition",i 

138 char1,8,1@, "Bitte druecken Sie 

entsprechende Taste!":print 

148 getkeyas 

159 ifas<>"t"andas‘>"z"theni49 

169 ifas="t"thengosubi18Q:90t024% 
172 ifas="z"thengosubi18ß:g0tol87% 
188 SEEN cn ra wenn ae ne er ne ie 
saeseeannanı: "irem 39 leerzeichen 
199 dzum "HH, Haha" 

Zag ze=1088: dimas(ze) in=129dg: dimnin 
)sreturn 

ZI rem KRRTRRRHRÄNRKHRRNKKHRNKHRRTRR 
228 rom KRÜRHRRKKRRRRIINHRF titel %* 

239 rom KRRRRRRKKHÄRRRRRRÄNNÄRTÄKRRTTT 
248 gosubi81iß:chari1,8,3, "Allgemeine 
Text Datei",i:print:gosuböSß 

258 chari,2,4, "Eingabe: Dateiname 0 
der Nummer ";printichari,i1,7,"die 
Daten": print:gosubsdsS® 

26% chari,2,12, "(Alle Eingaben auss 
er Anfuehrungs-";sprint 

278 chari,2,i11,"zeichen sind erlaub 
t !)";print:gosubdS5% 

288 chari,12,18,"M =MEN U E",1:p 
rint 

298 getkeyas: ifaß="m"then39ß:else:g 
oto298 

388 scnelrigosubd89:gosubi1119 

319 getkeyaos 

3298 itfgs="n"g90oto459 

3398 itfgs="h"gotol21® 

349 itrgs=e"b"gotoß9d 

338 itrgs="d"goto?49 

388 Iifgp="a"gotol549 

378 Ifgs="e"thenend 

389 Ifgs="1"gotol?39 

378 ItFase"s"g0oto?98 

aa irae=e"u"gotold?7R 

aid gotosi® 

42 ram KRÄRKKKKERRRRRNNNRKRKHRÄRRRT 
438 rem KRRRRRRRIRINRN neueingabe * 
BB rem KRRRKKKKRRRÄRÄRKRRKHRKRTRRTIRRR 
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— 1 — 
459 scnelr 
468 chari1,15,2, "NEUEINGABE" ,1:print 
:g908Ub639: gosubä?7li 


#78 printchrs(1?)tab (2) "Dateiname: 
"irpoke2il,d4: inputcems: poke21,® 

488 gosub4rd:goto?729 

498 print:ize=l: 

522% printtabt2)j:poke842,34:poke2d8 
‚t:poke2i,6d4:inputas(ze):poke2l,@d:ip 
rintchr®s(13)j:tl=eze/i$: fori=1t099 
si@ iftleithengosub3S89: printchrs(19 


"Seite: "tl+i:chari,2,8,"" 
528 next 
=38 ifaßs(ze)schrs(42)thenreturn 


ze=ze+l:poke298,8 

559 gotoS2g 

rem KRRERKRRRRRRRHTRRKRRNRRRRRH 
rem K#XHHRRRRR unterprogramme * 
rem KRRRRRKRRRRRRRRRRRTRTNNNRR NR 
printtab (Z)chrs(18) "Seite vor=t 
"chr$(146) 

65% getkeyas 

619 ifas="tT"thend3d 
628% getkeyas$ 

638 char1,8,8,"",8:i=ß: 
sprintlz$: i=i+tl:100op 
648% char1,9,8,""ireturn 
65% printtab(i):i=d:dountili=3ä:pri 
ntehrs(96) j:iei#tl: loop: print 

668 return 

#78 chari1,?,5,"tEingabe besenden mi 
t ’*’)"’Sprintireturn 

688 chari1,15,2,"M EN UE",liprint: 
gosubsdSß: return 

698 ji=el:dountili=ze 

BR ifasti)e""thenis68d: loop 

718 return 

728 char1,8,22,"Daten speichern ? ( 
j/n)",i:print 

738 printtabi2)chr#(18) "Falls noeti 
9, Datendisk einlegen !"chrs(146) 
748 getkeyas 

758 itas="j"then?9@: else: goto39g 
?ED rom KRRRKRRRKKRRTRRRRTRTRIIITNHN 
778 rem #333 daten speichern * 
FEB rom KRRRRRTRRRRRRRRRRRRKRRRIRR 
78 senclr:chari1,9,2,"Daten speiche 
rn",i:print 

8828 print”"File-Name oder -nummers " 
scm$ 

818 print:iprintems" wird jetzt gesi 
chert";print"Bitte warten. "print 
828 dopen#2, "®"+(cm#) ‚ws printcms® 
838 print#2,ze 

84% 
isi:dountili=szeiprint#2,chr#s(34) +a® 
(i)+chr#(34):iei+l:iloopiclose2 

859% gosub1439:g0tol@1ß 


dountili=15 


"Mixed Datei 128 


I rem KERRKRRIHTKTIITKIIITIITN NN 
"2 rem KRKRKKRRRRRR daten laden + 
Ben RITTER 
2 scnelrichar1,8,2,"Daten laden." 
2iprint 

#22 print"Dateiname: "Jipoke2il,64:i 
mutcms: poke2il,8:print 

*:2 dopen#2, (cm$) :printems: input#2, 


nn 0 m in 


»22 i=l:dountili=zeiinput#2,asti):i 

",+l:loop:close2 

232 sosub1434:90t030% 

#2 scnclr:char1,2,2, "Bildschirm-Au 

ssabe",lL:iprint 

32 printtab(2)chrsti8)" E "chrati4 
"inzelschritt per Tastendruck" 

3 printtab(2)chrs(ie)" G "ehratig 
"esamte Datei anzeigen":gosub459 

’78 getkeyas 

732 ifa$="e"then1349 

‚79 ifaß="g"theni43g 

8399 else:g0t0978 

218 printtab(2)chrs(1?)chrs(18)" D 


> ou 


= Drucken "tab(26)" M = Menue"chrs 
146) 

1928 getgs 

1938 ifg$="d"thengosubi1218:90t0398 
1849 ifg$="m"then3dg 

129359 goto1l928 

1958 gotola2g 

1978 else:gotol®28 

1288 rem RHEIN 
1897 rem KKARKHR ein/ausgabemenue + 
1188 ren III 
1118 printchr#(1?@)tab(2)chrstis)" N 


"chr#(146) "eue Datei eingeben":pri 
nt 
1128 printtab(2)chrstis)" 8 "chre(i 
4&)"peichern einer Datei":print 
1138 printtab(2)chr#s(18)" B "chrs(i 
46)"estehende Datei laden":;print 
1148 printtab(2)chr#(18)" A "chrs(i 
4ö)"nfuegen an bestehende Datei":pr 
int 
1159 printtab(2)chrs(i18)" D "chrsti 
456)"aten auf Bildschirm":print 
1168 printtab(2)chrs(18)" H "chrsi(i 
46)"ardcopy (Druckerausgabe) ";print 
1178 printtab(Z2)chrs(18)" L "chrs(i 
46)"oeschen von Daten":print 
1189 printtab(Z2)chrstis)" U "chrs(i 
45)"mschalten zur Zahlen/Textdatei" 
:90sub652 
1198 printtab(Z)chrst(i8)" E "chrs(i 
46) "NDE"!gosub6dSß: return 
1228 rem HEHE 
1219 rem X%#%%%% daten ausdrucken # 


1238 scnclr:char1,8,2, "Drucker-Rout 
ine. ",i:print 

1248 printiprint" Aenderung der " 

1258 print" Sekundaeradresse" 

1268 printtabt19)chrs( 145) "?rchrs(i 

S?)chrs(157?)chr$(157) 5; :inputsa 

1278 printchr®$(17)chrs(i8) "Wenn Dru 

cker bereit ist, Taste !"chrs(146) 

12689 poke288,8:wait298,1i 

1299 open4,4,sa:cmd4 

1389 print#4,cmsiprint#4:i=i:dounti 
li=szeiprint#4,as(i)ti=i+i:loopiprin 

t#4: closed! goto398 

1318 ren IRRE 
1328 rem X*%%%* bildschirm-ausgabe * 
1339 ren III 
1349 gosub&4rß 

1359 printems:printize=si 

1368 printtab(2)a$(ze):itl=ze/15:pok 

e298,2:wait298,1 

1378 forjmitodsd 

1389 iftl=jthengosubs38 

1398 next - 

1499 ifa$tze)=chrs(42)theni2i® 

1418 ze=ze+i 

1428 goto1369 

1439 gosub49g 

14439 printcms$:print!ze=i 

1458 printtab(Z)a$(ze)iti=ze/lS:for 

j-1t099 

1468 iftl=jthenprintchrs(18) "Seite 

vor=Taste, "chr®#(146) :poke298, @:wait 

288, 1190sub638 

1478 next 

14989 ifas(ze)=chr#(42)thenig1® 

19499 zeuzeti 

1598 soto1l435% 

1518 rem BRRRRRRRRRRRHRHHHHHHHHHHNN 
152% rem append - daten anhaengen + 
15398 rem HIERHIN 
1549 scnclrigosubs9d: gosubil6ßf: ze=z 

e-i 

1559 gosub6s?9:gosub65d: printtab(2)c 

m$: print:printtab(2)as(ze) 

1569 ze=ze+ti:printtab (2) j:poke842,3 
4: poke2@8, 1: poke2i,64:inputas(ze)ip 

oake21,8: print 

1578 ifaßtze)=chrs(42)theni39g 

1589 goto1l569 ’ 

1598 print:goto?28 

1669 ifze=9@dtheni1489 

1618 printtab(2)chrs(18) "Datensaetz 
e bisher: "str$(ze-i)chr$(146) 

1628 printtab(2)" Letzter Datensatz 
wird angezeigt.": return 

1638 rem HRHRRHRHRRHRHHHHHHHHHHHNR 
1649 rem KRKRKRKRRRRK disk-tehler %* 


1650 rem KRRRRKRKRKIITITIIIIEIIIN N » 
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1220 vom RKRRRRKKRRRKRTITIN TERN 


Mixed Datei 128 


1668 ifds<>@thenprintdssjds:icms=e"": 
got 0398 

1678 return 

1689 gosubil81ß:printchrs(19)chrs(17? 
)tab(3)chr$(18)" Keine Daten im Spe 
icher !!!"chrs(146) 

1698 chari1,23, 18,"M = MENUE",i:prin 
t:90t0298 

1708 rom KRRRRRKRRRKKHRRRKÄRRRRRERRR 
1718 rem XXXRRRX%* daten loeschen * 
1728 rom KRRRRRIRKRKRRIKRKTTRNTRTRRRR 
1738 gosubi81@:print:iprintchrs(19)t 
ab (2)chrs(17)chr#(i8)"Daten 
loeschen. "chrs(1946) - 

1748 print:iprinttab(2)"Sind Sie sic 
her tj/n) ?":gosubd5ß 

1758 getkeyas 

1762 ifaße"j"theni?7?d:else: goto32d 
1778 printtabt2)"Bitte warten...":i 
=si:dountili=zeiaßti)="":ij=i+rl:loop: 
em@="" 

1788 printsprinttab(2)chr#(18)" Arb 
eitsspeicher ist jetzt ERBPEERENE 
46) 

1798 sleep3: goto3dß 

18829 char1,2,18,"":i=1:dountili=19: 
printizsj: loop: return 

1818 scnelr 

1828 printchrs(176)}:i=ß 

1838 dountili=36:printchrs(96) J:i=i 
+1: loop:printchrs(174):j=® 

1848 dountilj=28:printchrs(125)tabt 
3?)chr8(125):j=j+1: loop: k=9 

1859 printchrs(173)5:dountilk=36:pr 
intehrs(96) 5 :k=k+1: loop: printchrsti 
89) 

1868 return 

1878 gosubi1819:g90sub&689 

1888 print:iprinttab(1P@)chrs(18) "TEX 
ae print 

189% printtab(P)" = Neusingabe" 
1988 printtabt9)" = File laden” 
19718 printtab(9)" = File speicher 


[3 


1928 printtab(9)" = File anzeigen 


1948 printtab(9)" 


2 
3 
4 

1938 printtab(9)" 5 = File addieren 
6 = File erweiter 
? 


1958 printtab(9)" = Drucker-Routi 
1969 printtab(9)" 8 = ENDE 

1978 print:printtab(9)" 9 = Umschal 
ten auf " 

1988 printtab(14) "Textdatei" 

1998 getgs: ifg$=""theni999 

2998 onvaltq$) 9oto2929, 21798, 2238,23 
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19,2919, 2569, 2689, 2849, 398 

2818 goatol997% 

2828 rem KRRRRRRRRRTRERTNRKRTRTTRNR 
2B3Q@ rem KARRIERE neueingabe t/z * 
2ZBI8 dem RRRRRKRÄRRNNRRRRRRRTRRRTRRTR 
29858 pn=lent"Neueingabe eines Files 


28689 senclr:icharli, (48-pn) /2,2, "Neue 
ingabe eines Files", 1:print:gosub65 
[>] 

2978 gosub6s?7ß: gosubdSf 

2982 poke21,64:input"File Name: "If 
18: poke21,98: print: ifn=1998@thenn=2 
2898 print"EG-Text..."j:poke21,69:i 
nputsb#(n):poke21,#8: print 

2188 ifsb$(n)=schr$s(42)theni1878 

2118 print"EG-Zahl..."j:pokeZi,64:i 
nputz(n)spoke21,8:print 

2128 n=en+1 

21398 goto2898 

2192 ren VIII NH 
Zz150 rem KRRRIEREIRRR File laden * 
ZIEB rom KRRHRRRRRRRRRÄRKKRRRRRRRRRR 
2178 senelr:iprintchrs(18) "File lade 
n. "chrs(146) 

2188 poke21,6494: input"File-Name: "If 
18: poke21,98:print 

2198 dopen#2, (fFl8S):input#2,n 

2299 
tori=ßton:input#2,sb#stli):input#2, z( 
i)iınext:close2 

2218 gotoi8?78 

2228 rom KRRRKRRRKRRRKRRRKTNKTTKTTTTNR 
2238 rem ##XX3R%Rr File speichern * 
ZZI@ rem KRRRKRRRRRRRRRRRRKRKTRKRRRR 
22598 scnelr:printfls" wird gesicher 
t., Bitte warten..." 

2268 dopen#2,"8"+(f1$) ,w 

2278 print#2,n 

22868 i=8:;dountili=n:print#2,5sbs(i): 
print#2,z(i):i=i+l:loop:close2 

2278 gotol8?78 

2300 rom KRRRFRKRKRRRRRRRRKKRKRNNTRR 
2318 rem XKRRKKRRRR File anzeigen * 
2328 rem KRRRRRRRRRRRRRRRRKHNNTNRRRR 
2338 scnelr:printchrs(ı8)"File anze 
igen. "chr8(1496) 

2348 print"File-Name: "f18® 

2359 iffl$=""then266® 

23658 i=9:dountilien 

2378 printsbs(i)tab(25)}: print usin 
9 dz$sjz(i):i=i+l:loop 

2388 gosub2859 

2398 goto187% 

2400 rem KERKKRKRRRRRRRRTTRHTTIINNR 
Z410 rem KRRRKRRRTRTTINR addition * 
2420 rom KRRREKKRRRRRNRRRRRRRRRRRRR 
2438 scnclriprintchr$(18) "Werte add 


zii 23 13 11 u 33 I 3:3 3 E33 283 83 


"issed Dats»=i 1285 


-eren."chr$(146) 

#423 print"File-Name! 
Z#s23 iffl$=""then2469 
Zes3 s=8:i=d:dountili=n 

2472 printsbs(i)tab(25)j:print usin 
= dzsjz(i)is=stz(i)ii=i+ril:loop 

2#33 printtab (27) "-------- ":printta 
»'25)j:print using dzsjis 

2492 print:print:printtab(i@)chrs(i 
"Ausdrucken j/n ?"chrs(146) 

222 getx$: ifx$="n"theni8?8 

Zeil ifxge"j "thenz26ad 

23223 90102598 

2538 gosub2859 

254% gotol878 

ZEID rem KRRRERRRRNTETTTT III TI 
2IE2 rem RÜRRRRRERKERIRRRNK append * 
2578 rom RRRRRKKKKRRRRRTRNTTRNKRTN 
2588 senclriprintchrs(18)"File erwe 
:tern/Daten anhaengen"chrs(146) 
257% print"File-Name: "+18 

Zi ifflB=""then24469 

2#19 printsbsin-i),z(n-1) 


"+18 


2428 poke2i1,44:input"EG-Text...:"js 


S8{in)spoke21,@:print:!ifsbs(n)=chrs( 
“2)theni8?& 

2439 poke21,64: input "EG-Zahl...:"jz 
In)spoke21,8:print 

Z44% nen+i 

2459 goto2d28 

258@ charl1,?,12,"Keine Daten im Spe 
icher!" ,i:s8sleep3:90t0187% 

2870 rem KRRRRRRIT TITTEN 
2588 rem KRRRRRRI% druckerroutine # 
ZEIG rum RRRRRRRKKKKRTRTRRTTRTTT TR 
2788 scnelriprintchr®s(18) "Daten dru 
cken. "chrst146) 

2718 print"Aenderung der" 

2728 print"Sekundaeradresse!;" 

27398 printtab(i9)chrs(145) "?7"chrs(i 
S?)chrs{157)chrs(157)3 

2748 inputsa 

2758 print:printchrs(18) "Wenn Druck 
er bereit ist, Taste druscken. "chrs$ 
(146) 

2768 poke288,@:wait298,1 

2778 opend, 4, saicmd4 

2788 print#4,tabtS) F1$ 

2778 fori=ßton-i 

2888 print#4,tab(S)sbKli)tab(49-len 
(sb#(i))-len(dz#))j:print#4,using 
dz$jzti)is=stz(i)inext 

2818 print#4,tab (37) "-------- . 

2828 print#4,tab(45-len(dzs) )j:prin 
t#4 using dz$js 

2839 print#4:close4:goto187% 

2848 scnclriprintchrsti2)chrs(142): 
end 


2858 printchrs(i?)chrs(1?)chrsti8)" 


Taste fuer 


’MENUE’ 


"chrs(146) 


2868 poke298,Q:wait298,1 

2878 return , 

2869 rem mixed datei ==a=nmzon=2= 178 
26878 rem 1223645 bytes memory zum 
297288 rem A98715 bytes program === 
2718 rem OAARRY bytes variables === 
2928 rem RADAR bytes arrays zum 
29329 rem AO099Q bytes strings mon 
29749 rem 949394 bytes free (9) === 
29598 rem 044256 bytes free (|) === 
298 rem zremanzazzmezeumuezemamanen 


Diese Telefondatei er- 
möglicht dem Plus/4 Be- 
nutzer endlich die Ver- 
waltung von Telefonnum- 
mern UND die Überprü- 
fung der Telefonkosten 
in einem Programm! 
Nach Start des Program- 
mes wird im Menü ausge- 
wählt. Hierbei ist erstens 
die Neueingabe von Tele- 
fonnummern (natürlich 
mit dem zugehörigen Na- 
men) möglich, zweitens 
das Durchblättern der be- 
reits gespeicherten Daten 
und drittens die Gebüh- 
renerfassung. 

Zu 1: Nach der voll- 
ständigen Eingabe einer 
Adresse schreibt das Pro- 
gramm SELBSTTÄTIG 
diese Adresse in eine 
Data-Zeile und hängt 
diese an das Programm- 
ende an. Daher nach je- 
der Benützung das Pro- 
gramm neu absaven, be- 
vor Sie es aus dem Rech- 
ner „rausschmeißen‘“, um 
die Daten nicht zu verlie- 
ren. 

Zu 2: Mit einer belie- 


LE- 
DA 


bigen Taste kann hier 
weitergeblättert werden, 
um die Datei durchlaufen 
zu lassen. 

Zu 3: Dieser Menü- 
punkt unterscheidet ‚Te- 
ledat“ von den herkömm- 
lichen Datei-Programmen. 
Der Benützer wählt zu- 
erst den entsprechenden 
Wochentag sowie die Uhr- 
zeit aus (damit Teledat 
zwischen den verschiede- 
nen Tarifen unterschei- 
den kann) und drückt 
dann bei Gesprächsbe- 
ginn eine Taste. Im obe- 
ren Bildschirmteil er- 
scheint nun eine laufende 
Stopuhr, darunter wer- 
den die bereits ‚„‚ver- 
brauchten“ Einheiten so- 


wie die Gesamtsumme für 


das Gespräch angegeben. 
Bei Ende des Telefonats 
muß wieder eine beliebi- 
ge Taste gedrückt wer- 
den, damit die Berechnung 
beendet wird. Nun kön- 
nen die Gesamtsumme, 
Gesprächsdauer und die 
Gebühreneinheiten abge- 
lesen werden. 
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EEEITTTTTTTTTTTTTTTTTTT mm 


Teledart 


18 rem teledat 
2@ rem (c) commodore welt team = 
3Gg rem <s=s===2=2=2=222mmSmmsmmmmememmene 
48 rem {c) 93/964 by 
Sg rem 

69 rem 
78 rem 
sg rem 
98 rem 
198rem 


bernd welte 

herrmann wellesen 

version 3.5 9498z/ascii 
ci6/116/p4 + 1539/1531/1541 


net mh 


128 color4,?:color®,? 

138 rn$=chr$t18)he$s=chr&$(19) 
148 rf$=chr$(146):c1$=chr&$1(147) 
158 c4$=chrs$1{17):si$=chr$(32) 
188 zi&$=chr&$t(42) 

178 torg=1t03:g3$=g3$+c4$:nextg 
188 forg=eltod4: gd$=sgd$tc4$:nextg 
179 torgsitod: gss=gödsstcd$inextg 
28a forg=1to?:g?s=g?s+c4Sinextg 
z18 forg=1t08: q8$=48$+si$:nextgq 
z2@ forg=itodd: gsa$=gas$tzis:inextg 
232 forg=1tod49@: ab$=gb$+si&t:inexta 
249 torg=1t033: ac$=gc$+tsis:nextg 
252 printcls5 

zZ&g printgas; 

27% printzi$gc$zi1$; 

z288 printzi$tasb(13)"a&b welte softw 
are"q093$z21%; 

ZzP@ printzi$gc$zi1$; 

329 printgas; 

sig printobs; 

328 printtab (15) "xuxxixıxaı" 

3358 printtab(15)"xtele-datx" 

348 printtabt1IS) "XXX anKK" 

359 printob$; 

389 printgb$; 

378 printtabtii1)”"(1) nummerneingabe 


338 printob$; 

398 printtabtil)”(2) 
sung" N 

488 printgb$; 

419 printtab(i1)"(3) 
428 printob$; 

439 printtab(i1)"(4) 
449 printgbs; 

458 printgb$; 

468 printob$; 

478 printtabt1?7)"(c) 
488% print 

499 do 

sg@ getkeyas 

sig ifag="1"thenS6sg 
528 itfa$="2"thenF3g 
538 ifa$="3"thensig 
Ss4@ ifag="A'"thenend 
552g loop 
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gebuehrenertas 


ausgabe" 


ende" 


1985" 


568 printchrs(14F):printtab(9)"frei 
e bytes "chr&ti®)sjfre(x)iprint:iprin 
t 

555 printchrs$s(18)tsabtiF5)"d= menue” 
578 print!print:print"”...vor-und na 
chname":print:inputvs:ifvs="@'then! 
Fi : 

588 print:print" 
:inputvns 

599 print:print” 
utn$ 

638 char1,11,28, "alles richtia? 
nn)" 

618 do 

828 getkeyos$ 

838 ifgs=e"n"thenssg 

648 ifg&="j"thens?e 

65@ Iloop 

859 rem dataer zeugung 

678 dt= ZaIegl 

686 printchrs&t13?)5;dtz; "datarsvs;",” 
svn&; ","3n$ 

SH dt=dterl 

788 print"6?78 dt=";dt 

718 print"goto 739" 

72@ poke1319,1? 

738 tori=1to4:pokel32ß+i,13:next 
794g poke239,4:stop . 

7598 printchr${137):ichar1,9,26, "weit 


vorwahlnr. "iprint 
nummer ":printiinp 


tj/ 


er eingaben ? (j/n)"” 
788 do 

?7@ getkeyas 

788 ifgs="j"thenS56® 
FF ifgE=-"n"thenrun 
sed loop 

Ssi@ restore 

328 readvS,vn$,n® 

829 ifvs="df"therrun 
848 gosub3&g 

5595 gotosS2g 

Sad printelSogodsssi$;vF& 
372 printc4$c4$" tel, "}vns;" 7 ’ın 
$ 


330 char, ER "nenne 
’tte taste... erwies” 

s78 .: 

FEB getkeygs$ 
918; 
928 return 

936 rem gebuehrenerfassung 

949 printel$g3$"...waehlen sie 
entfernungszone:...."3 

959 printcd4ssitrn$" 9 "rfEsitsis"or 
ts- und nahgespraeche" 
988 printcedstsitrns" 1 
tfernung bis....5% km" 
978 printcedtsitrns" 2 
tfernrund bis...188 km" 


‚weiter b 


die 


"rf&sitsit"en 


"rfSsitsit"en 


932 printcdssisreng" 3 


"rtf$si$si$"en 
@rernung ueber 189 km"c4sc4$ 

#73 inputziz=sint(z):ifz>3thenprinte 
2e-2$:g0t0978 

2889 printclsg3$".....die uhrzeit:. 


15 printedssisrns” 1 "rs" 8 


ı8 uhr 
Bis 18 uhr" 

1828 printc4$sisrns" 2 "rf$" 18 uhr 
Sıs5s 8 uhr"cdscds 

3385 inputuiusint(u)iitfu>zoru<ithen 
Drintc2$c2$:goto1l@39 
1835 printcel$g3$s1$"....den wochent 
na * 

19559 printc4ssisrens" | "r4s" montag 
Bis freitag" 

95% printcä$slsrn$" 2 "rf$" samsta 


ıD »* 


‚sonntag und feiertage"c4$c4$ 

18578 inputd:d=int (d):ifd>Zord<ithen 
Srintce2$c2$:g0otold?g 

1889 n=4380: g9=?72 

1979 ifz=ilthenn=45:9=67.5 

199 ifz=2thenn=2d:9=38.571 

111l@ ifz=3thenn=12:9=38,571 

112@ e=n 


1138 ifd=2orus2thene=g 

1149 printelss 

115@ printg?$rn®&" bei gespraechsbeg 
inn taste druecken |! "srts$ 


1186 getkevas 

1179 ti$="ddgdagg" 

1184 printcl$sisS"dauer:" 
1198 printcgssissis$", 
ehreneinheiten" 

1289 printg3ssissis$",... 
raechskosten " 

1219 t=valt(leftstti$,2))%36@6+valtm 
idsttis,3,2))%6@+val(rightsttis,2)) 
1228 b=inttt/eri) 

1239 bi=b*.23 

1248 printhestab (8) lefts$(ti$s,2)". "m 
id$tti$,3,2)","rightsttis,2) 

1258 printcdssi$sis$int(b) 

1269 printg3$sissisint(biX199+.5)/1 
aa u dm " 

1278 b=9:bi1=g 

128@ printrns; 

1274 char1,98,21," bei 

de taste druecken,...." 
1389 getz$:ifz$=""thenlzid 

1810 Charilzd, 2. anna Hoch El 
ALTE Fr WA 2 RO 

13289 printrf$:ido!igetkeyz$ 

13398 ifz$="n"then?5g 

1348 ifz$="j"then939 

135@ loop 

136% rem===telefondatei=c16/116/p4 

1378 rem 64671 bytes memory 


....gebu 


saaancı ss JESD 


gespraechsen 


=. 


programm 
variables 
arrays 
1416 strings 
1428 fre 

194348 rem SZEZZEZ22Z2EISS2Semmeesmsecmoemen 
29095 data99,00,08 


BLOCK- 
GRAFIK- 
EDITOR 


Dies Programm dient zum Sie Ihre Grafik überprü- 
Erstellen von Blockgrafi- fen, unter Anwahl der ‘3° 
ken (mit sämtlichen über kann die Grafik als se- 
die Tastatur erreichbaren quentielles File auf Dis- 
Zeichen). Sollen die Bil- kette abgespeichert und 
der farbig sein, sind hier-- mit ‘4“ unter Angabe des 
für noch die RVSON-Taste Filenamens wieder gela- 
und die betreffenden Farb- den werden. 

tasten erforderlich. Hier-- Falls Sie mit Ihrem Werk 
zu wählen Sie den Menü- zufrieden sind, so können 
punkt 1. Mit “2° können Bitte lesen Sie weiter auf Seite 129 


unun 
[u u u u 
| Ba | Ba Due 


18 rem 
28 rem 
38 rem 
48 rem m 
58 rem = 
68 rem = 

z 

m 


blockgrafik-editor=e====22244 
(p) 82/86 commodore welt = 


(e) 82/86 harald beiler 


8 rem version 2.8 4dz/ascii 

SB rem c-dd4 + 1530/1541 

98 rem AR ER ESS EB IR BEL EUR DRG SE SER MEER ER DIN EEE GG CIE ER DRER DE USE DEE Dun En a NE EB SE EN 

sußgechrs(id42):ec$=chr# (2988) 

el®Sschr#s(147):c48=chr# (2817) 

d29=c46+c48: d3H=ed2u+c3B 

d4s=d38+c4B:rn®sechrs(218) 

rt$=chrs(146) :c3$=chrs# (829) 

w28=ec38+c 36: wI3BeW28+c3W 

hesschr#1(819) 

fori=49152t04925@8: reada: pokei,a 

ınext 

188 geis:idimgs(g) 

198 gu(@)- 
“ 


nee 


299 getl)= Ne ae 
n 

218 g6(2)= Mean ars aielala-siere nie nenne 
" 


2228 98 (3)= Mai rue ee a a 
u 


238 gut4)= een 
Li} 
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5 


248 38(5)= Ba Te RE Maya 5-0 


Blockgraik-Editor 


gu(6)= " 


gu”) " 


ge" 


gE(9)= " 


BI" sonne nenn nn nn 
NE ER) ET 


rem *%%* ab hier eventuell text * 
gizyert 

gut13)="?" 

gulja)="" 

gu(1j5)="" 

poke53288,8: poke53281,9:printsu 
sec® 

378 printelsc4stab(i)chrs(iill)s:tfor 
je1t035:!printcehrs(183) J:nextiprinte 
hrs(112) 

388 +ori=1to2@:printtab(i)chr$(189) 
tab (37?) chrs(17@): next 

398 printtab(i)chr#s(128)j:fori=1to3 
S:printchr#(175)$:next:printchr#(18 
6) 

488 pokeZi1,2:poke214,7:8ys38649: fo 
ri=1t034:printchrs$s(96) j :next:printe 
hrs(96) 

4189 poke2i11,11:poke214,3:8ys58648 
428 printrns" picture editor "rf%$ 
438 printtab(Z2)c4$"#uer sequentiell 
e blockgrafik-files" 

448 printd4$tab (5) "bitte waehlen si 
e:" $ 

459 printc4$tab(S)"1 = 
en/editieren" 

46 printtab(5)"2 = 
en " 

4783 printtab(5)"3 
489 printtab(5)'"4 = 
#498 printtab(5)"S 
Ss29 getas 

=i@ onval (as) 9g0t0o599,618,718,789,84 
& 

522 gotoSßß 

539 printd26rn®" m "rfB'enue..cccoe 
nn. 'rn$" d "rfS"rucken" 

348 getas e, 

559 ifaß="m"then3?79 

562 itas="d"then839 

572 goto54ß 

58% rem KRRRRIRKRR bild editieren * 
598 printcel®s:1list199-359:end 

6B2@ rem XXX%%%% bild uveberpruefen * 
&iß printcels:printtabt(i)chr#st117)3: 
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bild eintipp 


bild ueberpruef 


bild speichern" 
bild laden" 
ende" 


TUI 


+ori=1t036:printchr#(96) Jinext 

62% printchr$(185) 

638 tori=ßtoll:printtab(i)chr#(125) 
tab (38) chrs(125):next 

648 printtab(i)chr#(1ßö)j:fori=ito3 
&:printchrs(96) Jinext 

658 printchr#(197) 

668 printhesw28d28j 

678 tori=dtoll:iprinttab(Z2)g98 li) ınex 
ts print 

688 printtab(2):fori=e12tolS:sprintta 
b(2)gsti):inext 

678 90t03538 

708 rem KHK bild speichern * 
718 printcel®rns" bild speichern "rf 
s 

728 printe4sj :input"file-name :"Ifl 
% 

738 open2,8,2, "SB: "+t18+",8,W" 

748 print#2,flsichrs(13)} 

75@ fori=@tolS:print#2,98ti)schrsti 
a)3j:next!printchr#(i3)} 

768 close2:9g90t0539 

77% rem KRRRRKRRRRRRIR bild laden * 
788 printcelsrn®s" bild laden "rf$ 
79@ printc4sj:input"file-name :"jfl 
s 

828 open2,8,2,f1$+",s,r":input#2, fl 
® 

818 fFori=ßtolS:input#2,9$ti)inext 
828 close2:9g0t0539 

838% sys49152:90t0378 

848 printchr#st147)j:end 

858 datal69,127,162,994,169,989,932 
‚186, 255,169, 290,932,189,255,832,19 
2,255,176 

8652 data974,169,990,133,253,169,984 
‚133,254,162,127,032,2801,255,162,82 
5,169,813 

872 data32, 219, 255,232,225, 255,248 
‚949,162,298,177,253,133,252,941,96 
3,9286 , 252 

889 data36, 252,916,292,909,128, 112 
‚292,909 ,069,232,219,255,2009,192,84 
2,288,23% 

898 datal52,824,1981,233,133, 253,144 


‚992,230, 254, 292,208, 295,169,8213,983 


2,218,255 

999% data932,204,255,169,127,876, 195 
‚255,134 

91% rem blockgrafik-editor ======54 
928 rem 38911 bytes memory zes2s 
938 rem 83121 bytes program szze= 
948 rem QYi119 bytes variables ===== 
959 rem 99958 bytes arrays zs==== 
968 rem B9AZ2 bytes strings zsz=== 
9728 rem 35593 bytes free zez== 
989 rem s=zs=2=S52ESS5Szeszzezmsszzzszae 


Spacebombs 


-# rem spacebonbs =z=uuzzac16/116/p4 
22 rem {p) commodore welt = 
32 rem suensozuuomuzamzsmugzumsueumzam: 
“2 rem (ic) by w 
=2 rem andre schaer = 
“#2 rem = 
”@ rem version 3.5 48z/ascii = 
=@ rem ci&/1164/p4 + 1539/1S41/joy = 


Er rem EBSEzZzEzmgazuauuzsnuzmamaemumunen 
22 cl®=chr$(147):cd8=chr$(917) 

.18 er®=chr8(929) 

.28 color@,l:color4,i1:colori,2 . 

-22 g0osub1839:90s8ub 1229: gosub9PW: u= 
+59: p=199:r=198: pu=@:graphici,i:igra 
Sshice 

+#2 drawi1,5,8t09, 4to+4, +9#to+4, +4: dr 
a“1,9,4t09,l1:drawi,13,4t0o13,1:!drawi 
‚5,8to+i11,+r% 

159 painti,i11,5 

:59 sshapes8,3,2,19,12:graphici,i:g 
"aphic9:90sub339:colori,2:graphici, 
2 

:78 rem joysticksteuerung 

188 rem zzeuzemazammaseusuenm 

198 volB: ifu=i@ßoru=i183thenda3g 

228 ifjoy(i)=3thenu=suriisoundi, 3290, 
2:90t032%@ 

219 itjoyti)e?thenu=su-1l!soundi, 49%, 
zZ :90t032% 

229 ifjoyti)=128thengoto52% 

238 boxi,fti),poti),Fti)+L,poti)#i 

boxi,f(2),po(2),Ft2)+1,po(2) +1 

258 boxi,ft3),pol3),F(3)+1,pol3) +1 

259 box@,fti),poti),Fti)+i,poti)+i 

278 box@,f(2),pot2) ,Ft2)+1,po(2) +1 

box®,F(3),pot3),Ft3)+1L,po(3) +1 

poti)apoati)+S:po(2)apo (2) +3: pot 


S)epo(3)+2:ifpo(i1)>199orpo (2) >199or 


pa (3) >199thend3g 

rem ende 

ram szzz 

gshapes$,u,1F1:!g0to19% 

rem hintergrund 

rem sa2zzm 22222 

fort=1t052 

xeint(rnd(1)*32%) 
ysint(rnd(1)%*199) 

388 drawi,x,yinextt!fort=1to2@:x=in 
tirndt 18329) ı ymsintirnd(1)#199) 

S37@ boxi,x,YıXxtil,ytiinextticolori,i 
4 

4238 colori,2,4 

412 circlel,319,2,68:paint1,290,1@ 
428 colori,i4:circlei,59,592,8,48,,, 
198 

438 circleil,59,509,5,37,,,19% 

442 circlel,59,58,15:paint1,598,5@:p 
aintl,59,37: fort=35t045:paint1,59,t 


ınextt 

45% painti1,39,648 

468 colori,2,3 

478 fort=dto22 . 

488 xeint(irnd(S) #390) +1öd:drawi,r,pt 
olBB-tAS,xipexir=l1@@-t4Sinexttipain 
t1,1,199:r=298 

498% pmil99: Fort=dto2s 

s08 xeinttrnd(G 30) +1dßıdrani,r,pt 
02QB+tH5,xipexir=20@+t%45:inexttipain 
t1,319,199 

Ss1i8 colori,2:gshapess,u,iPil:return 
rem feuer 

rem szsaz 

549 s=191:fort=1tos 
drawl,urd,stou+r&6,s-3@:drawi ,u+ril 
A, stou+ri®, 5-30: s5=s-30: next 

568 tort=1821t0559step-19 

578 soundi,t,@:inextt j 

S88 drawd,urs, dtou+s, 191 :drand,u+i® 
‚Stou+ri1@,191 

S98 ifurös=sfti)oruri@=stti)thensig 
Ba iFursö=f (2)oru+riß=et (2)thenssg 
El ifursef (3)orurid=t (3) thenB9® 
628 goto1l9® 

rem ende 

rem auzmm 

fort=1to4 

64 Forg=i1d21tofstep-39 
soundi,9,l:nextg 
forg=dto1l®2istep3g 

67% soundi,9,l!nextg, t!fort=1tolßg: 
nextt 

988 tort=8to@step-i 

718 volt:sound3, 499, 28:nextt 

728 ifpu>hithenhi=pu 

?38 graphic, @ 

748 printcelscdscdscdscdscdscdscdscd 
$tab(i1l)"game over" 

758 printcdscdstabtiil)"score: "pu 
768 printcdscdstab(il)"hiscore: "hi 
778 printcd$cd$tab (11) "nochmal 
tj/n)" 

789 getkeyas: ifas="j"theni3® 

798 ifas="n"thenend 

888 30ot0?789 

Bi rem I.feind getroffen 

rem Sszz=2222=2==2=2zz2m22= 

838% li)=int(rnd( 1) HIAR) +10 
poti)=18:g0t0o938 

rem 2.feind getroffen 

rem zBz2zzmzzzanzzzzammus 

878 #(2)eint(rnd(IQW) #198) +10 

po (2)=28:90t0939 

rem 3. feind getroffen 

ram zzusuzzzuanzsenamas 
f(3)einttrndt iM) KIA) +18 

po (3) =39: 900938 
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Spacebombs - .2-—- 


938 rem explosion 

949 rem szszszzasen 

959 Fort=Btoßstep-i 

968 volt:sound3, 300, 28:nextt 

978 pu=pu+t (Z26tzae): zae=zae+tliifzaes 
Sthenpu=spu+S9: zae=d 

BB gotolF® 

9998 Fii)eint(rndti@) HIN) +19R 
1RAR Fi2)=intirndt IN) HI) +LAR 
IBiB +i3)eintirndt IN) HIAB) +19R 
1028 
po(i)=1ß@:po(2)=22:po(3)=3@i return 
1832 rem titelbild 

1898 rem zsoszznzuee 

1858 colori,i4 

i@ß&ß graphic9,i 


1878 char1,0, 9, "ssrurne nn dB. Bott 
are presents: " 

1888 char1,9, 4, "ron nnun s KRRRRRRERRR 
KRRRKKRRRRRTR" 

1898 char1,0,5, "sera: space 


‚...bomb s#t" 
119@ chari1,9,6, 

RRRRRERRRRRRTR" 
111@ circlei,89,138,19 

1128 circleil,898,135,6,6,98,278 

1138 circlei,75,125,2:circlel,85,12 

5,2 

1148 drawi1,75,112t0?78,95:drawl,85,1 
18t099,#5 

1158 eirclei,78,95,2:painti1,79,94 
1168 eirclei,99,95,2:paint1,99,94 
1179 xS=" the new bussines 9ame for 
the plus/#" 

1188 fFort=i1t03? 

119% aß=mmidsixs,t,1) 

1228 charl,t,22,a®:!torg=ito4@:ınextg 


u seo a0 = 8 a RRRKRKRRRR 


1219 fort=1tol@ßß:inext:ireturn 

1228 graphieß:iprintel®".....bitte e 
inen augenblick warten ...." 
1238 return 

1248 rem spacebombs============ 
1259 rem B6Q&?7i bytes memory == 
1252 rem BBRBRQ bytes program ze 
1278 rem BARRQZQ bytes variables == 


128% rem BAQ999 bytes arrays == 
1292 rem 290928 bytes strings == 
1399 rem ARPRZBRB bytes free e= 
i3l@ rem sszeaszzsezessmeszzezmemazezasee 


Fortsetzung von Seite 127 

Sie es sich auch aufei- 
nem Commodore-Druk- 
ker oder einem anderen 
mit compatiblen Inter- 
face (z.B. MERLIN usw.) 
ausdrucken lassen, da an 
das Programm eine Ma- 
schinenroutine angehängt 
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ist, die einen Ausdruck 

des momentanen Bild- 

schirm-Inhaltes ermög- 

licht. Dies geschieht, 

wenn Sie unter Menüpunkt 
“2° (Bild ansehen) die 

Taste ‘D‘ drücken. 

Harald Beiler 


Iinterruptuhr —-1— 


12 rem interrupt-uhr se=szmze=s=22==54 
28 rem {p) 82/85 commodore welt = 
38 rem REZEUSSESBSEZ22S:zS2z223zs55 nz azz 225 
#8 rem (c) 82/86 harald beiler = 
52 rem = 
6d rem = 
?@ rem version -2.,® 4dz/ascii a 
88 rem a=64 + ve-15317/1541 = 
98 rem SESZZS22S223ZEZ32 522 5Zz2 2522 = 2222 
188 printchrs(147) :poke53289,9: poke 
53281,2:print"interrupt-uhr” 

118 +ori=49152t0949597: reada: pokei,a 
ınext 

128 sys49152: printchrs(147):5y54915 
5 

138 data9?76,289,192,876,8244,192,976 
‚28537,192,169,197,8232,219,255,173,81 
3,220,841 

148 datai27,1941,815,220,832,128,193 
‚213,232, 832,232,832,899,969,8273,88 
4,265,878 

1538 datad?1,2645,064,2659,2068,876,9878 
‚192,129,169,2089,191,8928,82803,169,19 
3,1941,821 

169 datad23,088,096,128,169,949, 141 
‚829,293, 169,234,191,821,293,998,89 
6,832,128 

i78 datai93,%813,986,0432,979,968,82697 
‚282,932,8278,184,8932,165,193,1682,88 
9,281,986 

189 data2402,0206,281,978, 288, 238,162 
‚128,134, 252,032,128,193,913,983,98 
4,985,9878 

199 dataßd8,069,184,932,173,193,176 
‚248,281,292,176,236,133,251,932,17? 
3,193,176 

22% data229,832,159,193,9295, 252,141 
‚811,2298,932,1298,193,813,977,973,97 
8,032,232 

219 dataß38,168,832,173,193,176, 24% 
‚281,896,176, 236,133, 251,032,173,19 
3,176,227 

228 dataß32,159,193,141,210,229,832 
‚,128,193,813,883,069,875,232,932,85 
8,169,832 

238 datal?3,193,176,248,281,286,176 
236,133, 251,832,173,193,176, 229,83 
2,154,193 

24% datal41,289,220,169,288,141,288 
‚228,996, 255, 213, 193,825,9265, 193,12 
9,253,896 

25% datal?3,882,193,191,817,288,17?3 
‚881,193,141,229,298,169,147,276,21 
9,255,832 

268 data253,174,8032,212,223,162,098 
‚1629,264,169,2094,133,253,169,832,13 
3,254,167 

278 data253,976, 216, 255,173,998, 228 


Turm u EEE TE WE WE 


Interruptuhr 


97,252, 249,0@05,133,252,232,015,19 
3,276,849 
222 data234,129,169,008, 133, 253,044 
211,220,016,004,169,014, 208,202, 16 
»,222,832 
272 datai®5,193,169,032,032, 185,193 


173,911,229,041,127,832,889, 193,16: 


»+,258,932 
=@ datai@5,193,173,819,229,0832,98689 


193, 169,058, 932, 105,193, 173,009 ,22. 


#,232,969 


3:2 datal93,169,858,032,195,193,173 | 


228,220,299,048,932,195,193,169,94 
>,232, 195 

>23 datal93,0898,096,072,874,874,974 
274,832,1998,193,194,9041,915,999,94 
3,276, 105 

338 datal93, 166,253, 157,000, 004,173 
‚,134,9892,1357,299,216,232,134,253,989 
*,194,133 

343 data253, 104,133, 254, 162,200, 238 
‚253, 298,092, 230, 254,161,253,841,12 
352 data255,162,0092,161,253,916, 237? 
‚165, 254,072,165,253,072,294, 206,25 
1,296,251 _ 

>49 datades, 251,996, 251,085, 251,996 
‚232,228, 255,240, 251,876, 219, 255,83 
2,165,193 

78 data201,248,144,207,201,0958, 176 
‚283,9441,815,296,056,996, 255 


388 rem interrupt-uhr =zse=m=maa2zan44 
378 rem 38711 bytes memory zzmu== 
“29 rem 92598 bytes program s=z===2 
“18 rem BABl4 bytes variables ===== 
“28 rem DRARAd bytes arrays zsazsum 
“39 rem A898 bytes strings z==== 
“449 rem 36297 bytes free (9) ===== 
“E99 rem zerzzzeanszzammzmnzzzamzumzeens 


SPACEBOMBS 


Sie sind eine kleine Bo- 
denstation auf dem Pla- 
neten X-300gf und müs- 
sen die feindlichen Bom- 
ben, die auf Sie herunter- 
fallen, abschießen. Je 
mehr Sie treffen, desto 
mehr Punkte gibt es. 
Während Sie sich mit 
Ihrer Bodenstation links 
oder rechts bewegen, 
können Sie die Bomben 
nicht sehen. Achtung!!! 
Wenn eine Bombe auf- 
schlagen kann oder wenn 
Sie einen derumliegenden 


Felsen berühren, sind Sie 
tot. 


INTER 


Nach dem Abtippen oder 
Laden erscheint nach 
“RUN“ die Aufforderung, 
die betreffenden Zeitan- 
gaben zu machen. 


. V bedeutet vormittags, 


N dementsprechend nach- 
mittags. 

Bei der Stundenangabe 
benützen Sie bitte nur die 
Zahlen von 00 - 12. 

(14 Uhr nachmittags ist 
demnach N 02.) Außer- 
dem ist es wichtig, sämt- 
liche Zeitangaben immer 
zweistellig einzugeben, da 
der Computer die Zahlen 
sonst nicht annimt. (Bei- 
spiel: 14.05.08 Uhr) 


 RUPT-UHR. 


Nachdem die letzte Zeit- 
angabe erfolgt ist (Sekun- 
den), erscheint auf Ihrem 
Bildschirm links oben die 
Echtzeit. Diese Zeile ist 
nur durch Betätigen der 
RUN/STOP-RESTORE- 
Taste zu löschen. 

Da sich das Maschinenpro- 
gramm jedoch immer 
noch im Speicher ab 
$C000 befindet, kann die 
Zeit mit SYS 49155 jeder- 
zeit wieder eingeblendet 
werden. Dies gilt auch 
nach einem RESET, na- 
türlich nicht, wenn der 
Computer ausgeschaltet 
wird. 


ENTFERNUNG 


Zu Programmanfang wer- 
den zuerst die gesamten 
Entfernungsdaten initiali- 
siert, was auf dem Bild- 
schirm verfolgt werden 
kann. Ist dies geschehen, 
kann durch Tastendruck 
in den Eingabemodus ge- 
gangen werden. Nun 
. kann zwischen einer al- 
phabetisch geordneten 
Städtetabelle ausgewählt 


LAST- 


WAGEN- 


FAHRT 


werden. Nach Eingabe 
von zwei gewünschten 
Städten liest der Compu- 
ter die entsprechenden 
Daten aus und zeigt die 
Entfernung zwischen den 
beiden Städten an. Ist 
dies geschehen, kann zwi- 
schen Neueingabe und 
weiterer Programmende 
gewählt werden. 


Stellen Sie sich einmal vor, 
daß Sie mit einem Last- 
wagen voller Bierdosen 
durch eine mittlere deut- 
sche Kleinstadt gefahren 
sind. Auf der Fahrt haben 
Sie, durch einen Fehler, 
nach und nach die gesam- 
te Ladung verloren. 

Nun müssen Sie die einzel- 
nen Bierdosen wieder auf- 
sammeln. 

Das ist aber gar nicht so 
einfach, denn viele Ihrer 
Bierdosen sind, wie Sie 
sich gut denken können, 
von den vielen anderen 
Autofahrern zum Teil ge- 
funden und auch gleich 
getrunken worden. Aus + 
diesem Grund fahren diese 


Bitte lesen Sie weiter auf Seite 136 Rn) 
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Entfernung 


iß rem entfernung ze=e=sze=seeseme=mme=mdd 


78 rem version 2.8 4dz/ascii 
88 rem c-64 + vc-1531/1541 
94 rem z====2=25=2=2255=2S2=22 55235522258 
189 ap=59:cs=211:cz=214:x=58732 

118 IdUm" 0000ER TE TE En“ 
Kennen ensas.."irem 39 spaces 

128 dim en(ap,S®) ,ap$s(ap) 

138 pokes46, 1%: poke53269, 9: poke5328 
1,8:printchrs(147): pokecs,@:pokecz, 
id: 5ysx 

148% print"von stadt zu 
stadt":fori=Bto2@: printchrs(96) | :ne 
xt:print 

158 print"(1985 h.b)":print:print"e 
ntfernungsangabe in strassenkilomet 
ern":print:print 

1628 print"bitte warten sie ca.99 se 
kunden." 

178 print"arbeitsdaten werden initi 
alisiert. "!print:iprint:print 

188 fori=sitoapireadaps(i):printchrs 
(19)"pass 1:'i 

198 forj=itoS@t:readenti,j):iprintchr 
#(19)tab(25) "pass 2:"j 

288 nextinextiprint:iprintchrs(18)"p 
rogramm ist bereit.--> taste !" 

218 pokel98,8:waiti198,1 

228 printchr#(147)chrs(18)"staedte- 
tabelle. ...(alph.reihenfolge) "chrs( 
146) 

238 pokecs,®:pokecz,l:'sysx:fori=ito 
17:printaps(i):next 

248 pokecs, 13: pokecz,1:sysx:fori=18 
to34:printtab(i3)ap$sti)inext 

258 pokecs, 24: pokecz, l:sysx:fori=35 
toS@:printtab (24)ap®li):next:print 
268% pokecs, 8: pokecz, 2B:5y5x 

278 pokeil9,&4:input"-->"}jap$ 
input"-->"jeps:pokel9,8:print 
298 fori=itoap 

398 pokecs,9:pokecz,18:5y8Sx 

si@ printchrs(18) "pass 

1: "stresti)chr#(32) 

329 itfap$=ap$s(i)then348 

33@ next:90t0378 

348 torj=itoap:pokecs, 25: pokecz,i6: 
sysxiprintchrs(18) "pass 

2: "str®s(j)chr#(32) 

358 ifeps=ap$(j)thengosub449: g0t039 
8 

358 next 

37%# printiprintchr#s(18) "stadt nicht 


28 rem (p) commodore welt = 
88 rem S====2ezszzzrazgeszmmszazsezzuseesn 
423 rem (c) h. beiler = 
Ss@ rem = 
#29 rem m 

= 

= 
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in der tabelle"chr$s(146):fort=1to2 
Baßınext 
389 gosub459:90t0268% 
398 print"andere staedte ? 
499 getas:itfag="j"thend3g 
419 Ifas=e"n"thenprintchrs(147?)"ende 
des programms. "send 
428 90t049% 
438 gosub459: goto269 
448 pokecs, 31: pokecz, 28: sysx:ıprintc 
hrs(i8)jen(i,j)Ichr#st146) "km"iretur 
n 
458 pokecs,®:pokecz, 19: sysx: fori=it 
os: printidsjsnextireturn 
460 ‚388,636, 725,957,1849,2397,147,8 
8 
478 dataaachen, 9,597, 568, 659,676, 26 
7,99,426,3368,579,166,699,193, 75,114 
PR- 2 
488 data259,515,716,834,1969,524,36 
7?,773,383,347,638,1498,69,629,578,51 
28,319 
498 datads34,293,4659,2698,259,694,573 
‚696,299,784,4594,192,525, 969, 232,36 
6,654 
528 dataaugsburg,597,8,336,595,417, 
557,512,578,693,407,6927,9488,598,571 
‚93 
519 data886,36598,295,119,575,497,719 
‚>78,176,234,434,825,461,538,413,77 
3,514 
528 data285,66,664,138,681,519, 251, 
134,794,377,221,161,475,78,522,379, 
295,297 
538 databasel,568,336,9,884,188, 645 
,‚489,663,893,716,3578, 781,569, 538,56 
4,996 
548 data331,55,379,266,821,929,688, 
279,285,527,9353,432,581,722,883, 762 
‚2si 
559 data395,634,428,691,683,573,459 
‚18281,262,595,268, 360, 254,846, 359,4 
36,86 
56% databer lin, 659,595,884,8,992,39 
a a ae a Ds a 
572 data457,538,827,699,1139,831,29 


(j/m)" 


2,285,747,790,381,388,619,572, 185,2 


?9 

=88 datai50,636,592,467,441,428,427 
‚653,532,248,754,742,633, 745, 606,66 
3 

598 data593,599,846& 

-L-] databern , 676, 41?, 128, 992,8, 753, 
597,771,911,813,686,878, 668, 646, 672 
‚1194 

618 data467, 173,424, 158,862, 937,796 
‚424,313,635,1043,349, 609,830, 991,8 


un 


= um eEz3z2 


Entfernung 


.23 data359,436,792,527,799, 711,616 
9,1109, 379,586, 344,468,357,876,4 


I 


.>e data512,120 
+2 databieleteld, 267, s57, 545,394,7 


Hal u 
Lu 


is2 
"== data438,270,542,678,911,1002,27 
114,774,412,123,377,299, 190, 388,3 


“2 data257,348,619,74,449,53,44,67 
553,443,461,769,457, 363,598, 949,3 


78 data337, 731 

»=2 databonn, 99,512,489,691,597, 221 
2,378,369,505,1168,5790,96,76,192,64 
5,172 

78 data428,631,755,997,478, 321,688 
278,265,584,61,26,495,532,464,234, 


>71 


"22 datal72,389,229,294,605,484,4598 


254,721,347,156,441,871,147,277,57 


”ı8 databraunschweig, 426,578, 663, 22 
=,771,173,378,8,169,293,269, 319,321 
246 

"28 data309,342,339,6811,732,729, 186 
2,175,64,789,481,148,281,399,347, 21 
5,229 

28 data92,417,634,244,464,207,1698, 
39,568, 322,532,784,532,518,618, 955 
„371 

748 data372,749 

758 databremen, 384, 693,803, 393, F11, 
153,369,169,9,459, 251,476, 383, 316,2 
71,236 \ 

78 data475,747,868, 19069, 1196, 119,1 
13,923,617?, 284, 225, 428, 329, 372, 173, 
249 

778 dataS53,779,177,689,129,184,825 
‚724,291,668, 920,666, 5399,769,1091,5 
27,328 
788 data889,chemnitz,579,497,716,26 
3,813,411,595,293,459,90,463, 75,525, 
524,498 

778 data627,495,677,549,981,793, 468 
‚349,5397,547,288 

299 dataS66,456,325,78,488, 201,483, 
“42,458,291,459,364, 466, 364, 462,598 
519 dataS972,483,596, 461,535, 437,345 
‚698 

32% datadortmund, 166, 697,578,492,68 
%,112,116,269,251,463,8,528,353,66,3 
4,33% 

339 data267,523,726,844,1992, 363, 21 
2,765,393,175,469,184,85,478,417,35 
5,329 


‚2,221,173,133, all, 112, 476, 164, 18. 


849 data666,64,475,121,99,7998,579,5 
35,354,816,442, 254,336, 966, 242,372, 
673 

S5@ datadresden, 449, 488,781,293,878 
‚476,578,319, 476, 75,528,8,599, 589, 5 
62,649 

360 data479,742,605,1046,628,482,37 
3,662,612,353,558,521,599,199,4864,2 
27,548 

379 data597,523,356,521,429, 531,429 
‚922,663, 528, =48, at, 526, 468, 92, al 
23,763 

sag dataduisburg, 193,599, 569,545, 66 
8,164,96,321,393,525,53, 599, 8, 27,28 
‚582 

89% 599,0,27,28,582 

+09 data248,594,709,826,1912,415,26 
4,746,374, 228, 21, 185, 66, 532, 469,49 
7,318 

910 data647,1903,456,169, 152, 681,568 
‚587,335,797,423,237,517,947, 223,35 
3,646 

928 dataduesseldorf,75,571,538,569, 
646,189,76,346,316,524,66,589,27,8, 
33,595 

7329 data230,486,691,808,994,428,277 
‚728,356, 236,534,147,48,514,482,432 
‚292 

749% datas29,128,438,185,169, 463,542 
,6989,317,779,4985,219,499, 929, 225,33 
5,628 

759 dataessen, 114,593, 564,539, 672,1 
>2,192,309,291,498, 36,562, 29,33,9,5 
79,236 

96% data512,717,834,1920, 493, 252,75 
4,382,219,509,173,74,518,457,395,31 
8,655 

772 data?1,464,148,134,689,568,575, 
343,894,431,245,323, 955, 231,361,654 
939 dataflensburg, 691,886, 996,457, 1 
194,438,695,342,236, 627,539, 649,582 
‚593 

779 data5?79,9,679,942,1Q69,1262,134 
9,167,323,1121,818,477,83,797,698,5 
49,161 

1099 data426, 746, 963,463, 793, 496,43 
7,1818,897,273,861,1112,859,779, 928 
‚1284 

1919 data?99,701, 1982 

1928 datafrankfurt, 259,368,331,358, 
467,270, 172,339, 475,405, 267, 478,248 
‚239,256 

1939 data6790,0,276,479,597,771,593, 
351,518,1464,201,689,121,199, 395,557? 
‚435 

1948 data82,419, 323,215, 389, 223,449 
‚319,675,197,569,195,209,289,799,39 
‚112,417? 


133 


« 


Entfernung 


1859 datafreiburg,515,295,65,927,17 
3,592,928,611,747,677,523,742,594,4 
86,512 

1089 data942,276,9,348,331,788,775, 
628,387,144,973,881,377,996, 667,829 
‚712,291 

1879 data354,379,383,636,495,534,42 
98,947, 288,594, 204,306,213,797,295,3 
72,181 

1858 datagarmisch, 716,119,399, 698,4 
24,678,631,732,8698,5490,726,9805,789, 
691,717 

1999 datal9&9,479,348,9,582,592,893 
‚7948,537,369,558,999,5989,649,539,947 
‚631,494 

1188 data98,?713,257,725,639,2837,228 
‚892,599,209,288,583,197,497,4978,32 
4,234 

11 datagenf,834,575,2686,1159,158, 
911,755,929,1869,981,844,199468,826,8 
28,834 

1128 datal262,597,331,582,9,1028,198 
95,954,581,971,793,1201,6958, 767,988 
‚1149 

1139 datal928,517,593,733,684,957,8 
67,773,715,1267,528,793,501,626,514 
‚1832 

1139 datasil1d, 669,277 

1152 datagraz,1049,497,821,831,862, 
1802,997,1086@,1196,7893,1992,628, 181 
2,994 

116@ datal929,1349,771,788,592,1928 
‚2,1182,1@37,4945,719,8932,1288,835,9 
54,737 

1172 datae1236,855,770,4926,1887,556, 
10849,958,331,452,1101,8648, 276, 646,9 
42,563 

1184 data2d2,893,659,749 

1179 datahamburgy,524,719,829,298,93 
7,271,478,175,119,469,363,482,415,4 
268,483 

1298 data1l6?,593,775,892,1995,1185, 
9,156,959,643,310,115,549,441,382,6 
3,259 

1219 data5?79,795,296,626,2397,279,85 
1,732,181,694,945,692,612,753, 1117, 
533,534 

1229 data915 

1239 datahannover , 367,578, 688,285,7 
96,114,321,69,113,399,212,373,284,2 
77,292 u 

1249 data323,351,629,748,954,1937,1 
56,9,806,498,165,262,389,299,269, 21 
2,196 

1252 dataa34,6590,187,981,197,1149,7?8 
6,585, 328,549,899,5497,961,6@8,972,3 
83,389 

128% data??2 
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1278 datainnsbruck, ?773,176,398,7497, 
424,774,688,789,925,597,765, 662,746 
‚728,754 

1289 dataill21,518,387,57,581,445,95 
4,8968,9,392,651,1969,619,6893,587,18 
88,688 . 

1298 data493,155,821,329,878,727,27 
%,277,964,592,166,319,619,229,459,5 
37,381 

13249 data39d 

1318 datakarlsruhe, 383, 234, 205,798, 
313,912,298,431,617,597,393,612,374 
‚356,382 

1322 data@19,1464,144,369,471,719,649 
3,995,392,8,393,749,247,316,535,697? 
527.72 

1338 data293,499,254,598,365,473,38 
3,815,1497,433,82,223,163, 736, 165,29 
3,291 

1342 datakassel,337,434,527,381,635 
‚123,265,198,284,288,175,353, 228,23 
6,218 

135@ data9a?7,291,973,558,793,882,31 
2,165,651,343,9,416, 252, 259,278,364 
‚294,279 

1358 datad96,170,226,167,76,551,43% 
‚,982,394,695,392,392,486,5817,235,22 
9,613 

1378 datakiel, 639,825,935,388,1933, 
377,584, 281,223,564,4689,558,521,534 
‚509,83 

1388 data699,881,999,1201,1288,115, 
262,10689,749,418,0,6968,5947,488,78,3 
35,685 

1399 data9@1,992,735,359,3768,957,83 
6,174,809,1951,798,718,859,1223, 639 
‚549,1221 

148% datakoblenz, 199,461,4932,619,54 
9,279,61,390,428,456,184,521,165,14 
2,178 

1418 data?@?,121,377,589,698,885,54 
9%,339,619,247,252,696,9,87,4396,594, 
456,183 

14228 data528,240,329,297,249,5549,43 
3,712,1749,679,296,199#,399,828,78,22 
6,518 

1436 datakoeln, 69,539,591,572,6929,1 
99,268,347,327,525,85,590,66,48,74,6 


"98,199 


1449 dats446,649,767,954,441,290,68 
8,316, 259,547,87,8,515,495, 433,252, 
589,142 

1458 data398,199,174,623,5802,613,26 
2,739,365,164,459,889, 165, 295,587 
1482 dataleipzig,629,413,722,185,83 
9,389,495,215,372,78,478, 199, 532,51 
4,513 

1470 data549,395,667,530,988, 737,38 


Entfernung 


2,289,587,335,278, 488, 446,515,9,418 
23,473 

‚+22 data432,453,281,414,354, 454,34 
=,379,588,582,473,586,451,569,427,3 
“4,%62 

-472 dataluebeck, 578, 773,883, 279,99 


.,225,592,229,173,488,417,486,469,4 


22,457 

-=22 data1l61,5537,829,947,1149,1236, 
*3,219,19@6, 697, 364, zB, =94, 495, 418, 
#,243 

-=12 data633,849,359,689,293,324,99 
*,784,118,748,999,746,666,8987, 1171, 
==7,588 

.=28 data969 

-=393 datamagdeburg,319,514,762,158@, 
==5,257,464,92,249,201,355, 227,497, 
*32,398 

-549 data4264,435,712,6431,1928,855,2 
*7,146,688,577,244,335,486,433,123, 
243,9 

.559 data513,533,3390, 382,287, 269,55 
7,447,267,628,683,574, 626,552, 687,4 
=7,447? 

.589 data848 

:572 datamannheim, 319,283, 251,636,3 
-7,348,234,417,553,483,329, 548,318, 
272,318 

1589 data318,7468,82,291,404,517,778 
ı579,434,71,279,689, 183, 252,473, 633 
‚513,8 
1579 data344,385,258,442,391,4983, 36 
2,751,128,494,120,2@3,214,787,83,16 
8,337 
1598 datamuenchen, 634, 66,3953,592,43 
&,619,571,634,779,442, 666, 97, 647, 6 
29,655 
1419 data963,419,354,98,593, 424,795 
‚#52,155,293,496,921,529,589,432,84 
7,533 
1529 data344,0,696,165,663,572,188, 
122,7974,436,1590,229,589,137,443, 438 
‚268,316 
1838 datamuenster , 203,664, 634,467, 7? 
“2,74,172,244,177,458,64,5323,183,12 
3,71,463 
1648 data323,579,713,733,1987,296,1 
57,821,449,170,492,248,142,453,359, 
339, 385 
1452 data696,9,531,57, 94, 756,635,46 
3,419,846, 498, 312, 592, 1022, 298, 428, 
728 
1558 datanuernberg, 469,138, 428,441, 
>27,449,389,464,6509,291,475, 356,456 
‚438,464 
1878 data?93,215,393, 257, 684,556, 62 
%,481,329, 254,326, 735,329,398,281,6 
82,382 


188@ data258,165,531,9,493,492,225, 
194,643, 3868,315,192,415,179@,491,2497 
‚183,381 

1678 dataosnabrueck, 240,691,691,428 
‚799,53,229,207,129,453,121,521,168 
‚185,148 

1729 data9064, 380,634, 725,957,1849,2 
39,147,878, 596, 187, 355, 297, 199, 414, 
293, 287 

1718 data942,663,57,493,8,91,718,59 
?,411,467,813,555,369, 699,994, 355,3 
96,777 

1728 datapaderborn, 259,519,693,427, 
711,44,294,160,186,364,99,429, 152,1 
68,134 

1738 data437,223,495,634,8587,958,27? 
9,114,727,365,76,376,249,174,354,32 
4,268 

1748 data301,572,94,492,91,8,627,58 
6,442,4916,722,414,344,598,893, 255,3 
25,689 

1759 datapassau, 694, 251,575,653, 616 
,674,6925,689, 825,466, 7989,531,681,66 
3,689 

1768 datai918,449,534,287,773,331,8 
51,7986,278, 473, SS|, 957, =54, 623, 458, 
995, 355 

1778 data483,189,756,225,718,627,82, 
121,833,611,139,499,649,317, 266,472 
‚328,496 

1768 dataregensburg, 573,134, 459,532 
,558,553,484,568,794,364,579,429,56 
2,542,568 

179% data897,319,429,2298,715,452,73 
2,5985,277,363, 439,836, 433,392, 346,7 
84,447 

1898 data362,122,635,194,597,596,12 
1,8,723,999,196, 267,519, 287,387, 351 
‚287,418 

1818 datarostock, 696,794, 1881,248,1 
199,443,650,322,291,462,335, 422,587? 
‚629,575 

1828 data273,675,947,892,1267, 1181, 
181,328,964,815,482,1998,712,613,399 
‚118,267? 

1838 data?51,794,468,6943,411,442,83 
3,723,2,866, 744,864, 784,898, 882,795 
‚706, 1987 

1848 datasaarbruecken, 299,377,262,? 
54,378,461,254,532, 668, 598, 354, 663, 
335,31? 

1859 data343,861,197,2088,599, 5328,86 
8,694,549,542,149,394,898,174,262,5 
88,748 

1859 datas28,128,436,4190, 386,467, 41 
6,611,4999,866,9,586,239,98,312,879, 
169,283 

18728 data348 
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1888 datasalzburg, 784, 221,595, 742,5 
86,769, 721,784,928,592,816,528,797, 
779,895 

i87@ datalill2,569,594,2808,743,276,7 
45,898, 166,443, 6946, 1951,679,739,582 
‚999,683 

1998 data494,159;846, 315,813, 722,13 
9,196,744,586,9,378,659,287,293,588 
‚994,956 

1919 datastuttgart, 454, 161,268,633, 
344,457,347,532, 666, 483, 442,548, 423 
1928 data495,431,859,195,294,289,59 
1,646, 692,547,319,82,392,798,276,36 
5,473 

19329 data?744,574,1290,228,498,192,55 
5,414,4099,267,864,239,379,9,394,92, 
671,214 

1949 datalds, 224 

1958 datatrier,192,4975,369, 745,468, 
363, 156,518,599,596, 254, 661,237,219 
‚245,779 

1968 data299,396,583,626, 97932,612,46 
1,614,223,392,718,1499, 164,586, 666,6 
26,283 

19798 data599,312,415,369,344,699,51 
9,784,98,659,304,9,386,957,174,396, 
446 

1988 dataulm, 525,78, 254,695, 357,588 
‚441,618, 769,461,536,526,517,499,52 
5,928 

1998 data289,213,197,314,563, 753,69 
8,229,163, 488, 859, 398, 459, 451, 397, 5 
52, 214 

2900 data1i37,592,179,649,598,317,28 
7,898,312,287,99,386,9,592,398,219, 
zil 

2819 datawien, 969,522, 846, 663,876,9 
49,871,955,1991,535, 966,459, 947,929 
‚#55 

29222 datal284,799,797,497,19409, 282, 
1117,972,459,736,817,1223,820,889,5 
69, 1171 

2939 data687, 787,443, 1922,491,984,8 
93,266, 387,882,879,293,671,959,592, 
8,738 

2248 data594, 757 

20958 datawiesbaden, 232,379,359,593, 
458,395,147,371,597,437, 242,592, 223 
‚285,231 

2868 data?99,39,295,498,616,803,533 
‚388,537,163,233,637,78,165,427,587 
‚967,83 

2978 data438, 298, 247,355, 255,472,35 
1,795,169,588,214,174,388, 738,9, 144 
‚436 

28988 datawuerzburg, 366 , 295, 435,597, 
512,357,277,372,598,345,372,419,353 
‚335,361 
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2299 data?81,112,372,324,669,659,53 
4,389,381,203, 229, 640,226, 295,346, 
88,447 

21088 datald8, 268,428,193,396,395,32 
8,297,796,283,484,168, 3806, 219,594,1 
44, 2, 392 

2118 datazuerich, 654,297,868, 848,129 
‚731,575,799,889,698,673, 768, 648, 62 
8,654 

2129 datai892,417,151,234,277,747,9 
15,779,3984,291,613,1921,518,587, 662 
‚967,848 

2139 data337,316,728,381,777,689,49 
6,418,1987,348, 466, 224,4958,211,759, 
436,372 

2149 dataß 

2159 rem entfernung ============= 
21688 rem 38911 bytes memory == 
2178 rem 12984 bytes program == 
2188 rem 89849 bytes variables == 


Or 


u | u u 


z1928 rem 13174 bytes arrays = 
2298 rem S8299 bytes strings = 
2218 rem 12753 bytes free 
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Fortsetzung von Seite 131 

jetzt, total betrunken, 
durch die Straßen und 
rammen alles, was sich 
ihnen in den Weg stellt. 
Ihre Aufgabe in dem Spiel 
besteht darin, die noch 
vorhandenen Bierdosen 


FIEBER- 
KURVE 


Das Programm zeigt an 
dem Beispiel “Erstellung 
einer Fieberkurve“ die 


(die in Kisten verpackt 
sind) einzusammeln, ohne 
von den Geisterfahrern 
gerammt zu werden. 

Viel Spaß bei dieser Auf- 
gabe und denken Sie dar- 
an, daß Betrunkene nicht 
vorauszuberechnen sind!!! 


Vorteile des 3.5er Basic 
auf. Es müssen die zu be- 
rücksichtigenden Daten 
für Tag, Namen und Tem- 
peratur in Grad Celcius 
eingegeben werden, der 
C16 erstellt dann die da- 
zugehörige Fieberkurve. 


NSX REVUE 


suchen kompetente 


COMPUTER-JOURNALISTEN. 


Die künftigen Kollegen sollten nicht nur ihr 
Handwerk beherrschen, sondern auch die 
Rechner, die dazu gehören. Außerdem erwarten 
wir ein ausgeprägtes Interesse für Themen rund 
um diese Computer-Typen. Ihre Bewerbung 
mit den üblichen Unterlagen bitte an 


AKTUELL-GRUPPE, Postfach 1107, 
8044 Lohhof, z.Hd. H. Seibt. 


23 z22 733 


zz EEE ii Eee Bd ee 


4 


Fr. 


TE EZ EI HH 53 zz 2 bi & 


IZ IE ıZ 1 E ı13 3 


-astwagentfahrt 


en lastwagenfahrt========2=2=2==254 
"zm (p) commodore welt team = 
“rem (c) ph. bertschg = 
= rem ; = 
I rem = 
@ rem = 
rem version 2.9 49z2/3scii = 
rem c-643 + 1534/1541 = 


79 cl$=chr$(147):s1$=chr$(32) 
71 a2$=sis+tsi1$: a3$=-3a7$+51$ 

32 a4$=a3$+51$:3S5$=-a4&+S1$ 

-23 rn$=chr $(18)irf$=chr$(146) 
-34 zi$=chr$(96):12$=z1l$tzi$ 
-35 13$=12$+z1$:r1l$=chr$(166) 
-35 r2$=chr$(197) :r3$=chr$(195) 
-37 rS$=chr$(117):1298=chr$(17?1) 
-38 za$=chr$(179):zb$&=chr$(189) 
28$=chr$(177):25$=chr$(173) 
.19 z6$=chr$(174):z?$=chr$(176) 
11 ni$=chr$(125) :!he$=schr$(19) 
-12 »1$=chr$&(118) 

*5% gosub2499: gotodäsd:rem 
+shrt 

219 pokevo,15:pokesz,dr:pokehf,mz:p 
skesz,zdireturn 

*28 forxm=2dtoSstep-1!pokevo, 15:pok 
esz,ddipokehf ,xmi pokesz, zdinextxmir 
sturn:*crash 

“438 data 
169,9,141,32,208, 141,33, 298, 141,8,4 
‚141,1,4 

449 data 
141,2,4,169,149,141,6,221,1689,5, 141 
‚24 

458 data 
2@3,169,128,141,136,2,133,56,76,958 
440 q=332683 

4?8 printcis 

458 printtabti14)"lastwagenfahrt"ipr 
int:print 


lastuagen 


478 print" auf c64 geschrieben von 
ph. bertschg" 

sag 

print:print” <c> 1985 von ph. berts 


chg"sprint:printiprint:printiprint:!: 
print:print:printsprint:print:print 
Ssi@ print”’das spiel mit der 
schwersten steuerung!" 

s28 print:printtabt(19)"idee: d. 
orpp" 

Sss® tormz=1t0255; gosub41ld:next 
S495 printcel$igosub13898 

S5S@g rem===rahmenbildung=== 

S68 ze=f:printcl$:!f0org=32768t032897 
:pokeg, 1@2inext 


sch 


378 t0org=32898t033728step4d:pokeg, 1 
82: pokeg+39, 1@2:next 

S8d f0r9=33728t033768: pokeg, 1@2:nex 
t 9 

S?G rem===labyrinth=== 

649 fora=1to254:readb:pokeb+32908, 1 


' Azinext 


610 data891,892,893,894,895,896,8399 
‚700,901,902,995,996,907,908,999, 1 
4,913 

628 data914,915,916,919,92%, 921,922 
‚923,924,931,939,942,945,946,947,94 
8,949 

636 data95g,953,956,964,971,979,982 
‚785,993,996,1004,1@11,1914,1915,1@ 
16, 1617 

646 datal918,1919, 1622, 1025, 1033, 1@ 
36,1637,1938,1039,194@, 1@41, 1944,10 
51,1862 

65@ datal@65, 1068, 1969, 1970, 1973,18 
84,1991,1102,1105, 1113, 1124, 1131,11 
32,1133 ’ 

66% dat2a1134,1135,1136, 1137, 1138, 11 
39,1142,1145,1153, 1156, 1157, 1158, 11 
59, 1168 

67% datall61,1162,1163, 1164 

639 data1l182,1185,1186, 1187, 1188, 11 
93,1222,1233,1251,1252, 1253, 1254,12 
55,1256 

678 datal257,1258, 1259, 1268, 1261,12 
62,1273,1274,1275,1276,1277,1278,12 
79 

708 datal28@,1281,1282,1283, 1284,13 
92,1313,1342,1347,1348,1349, 1358,13 
53,1371 

71@ data1372, 1373, 1374, 1375, 1376,13 
77,1378,1379,1382,139@, 1393, 1396,13 
97,1398 

726 datal399, 1460, 1461, 1492, 1493,14 
@4,1411,1422,1439,1433, 1444, 1451,14 
62 

736 data1l465, 1466, 1467, 147@, 1473,14 
34,1491,1494,1495, 1496, 1497,1498,14 
99 

>48 data15@2, 1518, 1513, 1516, 1517,15 
18, 1519, 1529, 1521,1524,1531, 1539, 15 
42 . 

759 data155@, 1553, 1556, 1564, 1571,15 
79,1582,1585, 1586, 1587, 1588, 1589, 15 
96, 1593 

768 datal596,16@4,1611,1612, 1613,16 
14,1615,1616,1619,162@,1621,1622,16 
25,1628& 

?7?@ data1l627,1628, 1629, 1638, 1633,16 
34,1635,1636,1639, 1648, 1641,1642,16 
43,1644 

788 datal263, 1264, 12645, 1278, 1271,12 
72,1225,1226,1227,1228,1229,1238 
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ee —— 
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796 data1l3985,1396,1397, 
198,1266,1267,1268,1267 

399 t=d:t9=2 

S18 rem===punkte in leerstellen=== 

828 f0ora9=32899t033768: ifpeek (a9)=3 
Zthenpokea9,87:next 

839 next!ti$="g90A99":b1=33689 

84@ rem===zeitsetzung auf "BAgd"=== 
858 mz=199:gosub41g:pokeg+t1,48:poke 
q,48:pokeq-1,176:pokegq-2,176 


1398, 1399,13 


8649 29=33394:69=32397 

876 b2=337268:b3=32846: 2$="j":90t07% 
[7] 

3888 rem===eingang der steuerdaten f 
uer das fahrzeug=== 


3898 getzs:gosubl6ilg: ifz$="k"thenr= 
12] 

988 ifz$="i"thenr=-48 

31a ifz$="j"thenr=-1 

928 ifz$="1"thenr=i 

939 aß=afdtr:ifpeek (a0) =21490t0138% 
949 itpeek (a8)=1@2thenaß=aß-r:g0oto? 
78 

956 pokevo, fu:pokesz,dr:pokehf,fu:p 


okesz, zd!pokea@-r ,32:pokea®,81 

9528 rem===l.zufallssteuerung fuer 9 
eisterfahrzeuge=== 

978 gosubl&ö1ß:t=t+l:ift/ösinttt/ös)t 
hengosub1859: goto11S@ 

988 ba=b@+s:b2=b2-s:!ifpeek (bE)=182t 
henbgd=b@-s:!b2=b2+s:!90sub1854: gotoli 
=17) 

999 ifpeek(b8)=Siorpeek(b2)=8igotol 
389 

1a948 ifpeek(b9)=87thenpokebd-s,87:p 
okeb@, 214:g0oto1928 

1818 pokeb@-s,32:pokeb#, 214 

1828 ifpeek (b2)=87thenpokeb2+s,87:Pp 
okeb2,214:g0t01183%8 

1538 pokeb2+s,32:pokeb2,214:g90t0118 
e 

1846 q40t0899% 

1850 ass 2 
1g8A veint (4rtrnd (8123458 789))) rl 
tv=i1thens=49 

18798 ifv=2thens=-48 

1889 iwfv=3thens=l 

1898 ifv=sd4thens=-i 

1128 gosubi61ß:ifpeek (bd+ts)=192goto 
196% 
1118 
1129 
133% 
1138 ifpeekt(b@)=8?thenpokebd-s,S7:p 
okeb9@-s-a,87:pokebd, 214:goto115g 
1148 pokeb@-s,32:pokeb®-a-s,32:poke 
b9e,214 

115% 
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b@=b@+s:b2=b2-s 
ifpeek (b9)=81orpeek (b2) =S1goto 


es EEE 


i psek(b2)=87thenpokeb2+s,97: PERER 
+5+3,87: pokeb2, Z2i4: return 

1186 pokeb2+s,32:pokeb2ta+ts,32:poke 
b2,2i14#: return 

1178 rem===2. zufallssteuerung fuer 
geisterfahrzeuge=== 

1188 gosublsid:tßetdril:iifint(ttg/e)- 
t8/’öthengosub12I34:g0t0879 

119% bi=b1+s@:b3=b3-s@:itfpeek(bi)=1 
ö2thenbi=b1-s9:b3=b3+s9:gosub1259:9 
oto8P%@ 

12228 ifpeekt(b1)=Siorpeek (b3)=&81goto 
1339 

1218 ifpeektbi)=S?thenpokebil-5s#,87: 
pokebi,214:g90t01239 

1225 pokeb1-s@,32:pokeb1,214 

1239 ifpeek (b3) =S?thenpokeb3+s4, 87: 
pokeb3, 214:90t0898 

12948 pokeb3+s9,32:pokeb3,214:90t059 
[7] 

12594 a5=sf 

12628 veint (48(rnd (81234558789) )) ri 
tv=elthensd=48 

1279 ifv=2thensd=-48 

1286 ifv=3thensd=l 

1272 ifvs4thens@=-1 

1389 gosubi1di@:ifpesek(bi+sg)=-122got 
o1l28%8 

1319 bi=b1+s9:b3=b3-sf% 

132@ ifpsek(bi)=Siorpeek (b3)=digoto 
1388 

1338 itpeek(bi1)=87thenpokeb1l-s9,87 
pokeb1-s@-35,387:pokeb1,214:g90t01359 
13948 pokebi-s4d,32:pokebi-a5-58,32:p 
okeb1,214 

1336 if PPEKIHSI=S7LE henpokebz 3+59,87: 
pobeb3+s58+35, 87: pokeb3, 214: return 
125% pokeb3+s@, 32: pokeb3+taS+sß,32:Pp 
okeb3, 214: return 

1378 rem===auswertunga der 
hlung der purnkte=== 

1388 gosub428:d$=tis:printhestab (8) 
"auswertung ihrer fahrt!!!" 

1396 au=d:t0ora9=32809t033768: ifpeek 
(a7)=57thenausautl 

19498 mz=int (255% {rnd (1239 )))gosubd 
19: next 


fahrt/zae 


‚1418 ifsu>’dgotoil4?ß 


1429 printeol$" 
eckt!ri" 

1436 forf=1tol2 
1448 tormz=2dtodsßstep2:gosub4lß:nex 
t 

145d formz=ddto2dstep-2:gosub4l@ß: ne 
“t 

1468@ next:gosub16?8: fori=1tosfd:nex 
t:g0oto1519 
1478 printel$" 


ihre fahrt ist geglu 


pech gehabt" 
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1489 print"sie haben ja "au" 
vergessenti!ii" 

1496 forf=1itolg@:mz=int (255* (rend (12 
3F7)))igosub4ilginext 
15890 rem===erneuter 
1519 printcls 


punkte 


start ?=== 


1528 forda=1toS:printinextiprint"wo 


llen sie noch einmal??? "runs" j"rtg$" 


a/’"rn$"'n"rfS’ein)" 


1539 getm$: ifm$=""goto1l53g 

1548 ifm$="j"gotoSsg 

1558 ifm$="n"goto1l5?7e 

155% goto1518 

15?@& printel$"dann eben nicht!tt" 
1538 torps=ltolgdimz=sint (255%*(rnd(i 


23) )) :gasub41l@:next 

1598 printcl$iend 

16dd rem===zeiteinblendung 
1819 iftiize+tögthenreturn 
1526 mz=189: gosub4a1% 

1638 pokeg+t1,48+val(mids(tis,6,1)): 
pokeqg, 4S8+val(midsttis,5,1)) 

1645 pokeg-1,17?6+tvaltmids(tis,4,1)) 
:pokeg-2,1?&+tvaltmidstti$,3,1)) 
1559 zestiireturn 

166% rem===beurteilung der fahrt,we 
nn fahrt geglueck 
1878 op=valtmid$(d$,&,1))+1@%valc(mi 
48(4$5,5,1)) 

1689 op=op+ö@*(19%valtmids(ds,3,1)) 
+tvaltmid$(td$,4,1))) 

16896 printcl$si$rn$s’ihre z e i t ir 
f$5op; "sekunden"!printiprintiprint 
1798 forwa=sitol@@:imz=int (255% (rnd (il 
I)))zgasub4dildinext 

1718 printa94s$"naja....":print!print 
:print 

1728 ifop>3@dgoto1l788 

1739 printsi$rn$"eine herrvorragend 
e zeit!ıı® 

1748 printsi&rn®s"sie koennten ein r 
ennfahrer werden!" 

1756 tore@=1to1l2:formz=29tosßstep2: 
sosub4ld:next 

1788 fornz=sßto2@step-2:gosub4ald:ine 
»t 

17?& nextireturn 

1789 ifop>4sdgoto1l349 


1798 print" eine mittelmsessige zei 
giHi® i 

1888 print" sie muessen noch viel 1 
ernen!!ı" 


1819 fored=1tol2:formz=28t08@step2: 
zosub4aildinext 

1828 formz=68t02@step-2:gosub4lß@:ne 
it 

1838 nextireturn 
1849_print"das war nichts gutes!!t® 


1359 print"ich erspare mir jeden ko 
mmentar!!!® 

1868 fore@=1tol?2:formz= Es ke 
gosub41d:next 

1378 formz=s4dt0o2@step- 2: gosub41ß: ne 
+t 

1858 nextireturn 

1896 print:print 

19238 printrens$s"stell dir 
rst lastwagen!":1n@=33259 
1918 printiprint:gh=33252 

1928 printazsrSsl2$z64$ 

1938 printa2$z24$z1$r3$m1l$ 

1749 printa2smissismismi$z7$12$128$1 
3$zZ6$ 

1954 printa2$z4$zi$r 2$ml$ml$a5sarsın 
1$ 

1988 PFENEBZENITSERZEZBEIZELZEIANG 
as 

1778 BeintazenLArS#l2erSKTäereelder 
S3Em1$ 

1938 printa2&r 1er 26rSer2 Er 1$13$r28$r 
S$r3$r1$zb$ 

1798 printadsr ($r 28356 1828 

2999 wi=d 

2818 wi=mitliitwi<l1gdgoto2d1g 

2928 pokegh, 32: pokegh+1,32:poken®, 3 
2: pokend+1,32 

2638 poke3ah+49,85:pokegh+4i 
ah+8@,74:pokegh+81,75 

2848 pokend+49,85:pokend+41,7 
n@+8@, 74: poken®+81,75 

2939 wi=g 

2889 mi=witliitfwi<sgoto2däsg 
2979 sab=abtil:ifab>1@gotoz11g 
293@ pokegh+898, 32: pokegh+81,32:poke 
n9+89, 32: pokeng+81,32 

2299 pokegh, 85: pokegh+1, 73: pokegh+q 
%#, 74: pokegh+41,75 

2108 poken®,85: poken®+1,73:!poken®+4 
8,74: poken@d+41,75:90t029998 

2118 print’print:print 

z1z8 print"jetzt hast du deine ladu 
ng verlorenttit® 

2138 formz=255toßstep-1:gosub4ld:ne 
xt 

2148 printcl$"fahre die ganze strec 
ke ab und suche deine ladung!!tı" 
print " 

215@ forhd=1toldd:mz=int (255% (rnd (il 
23))):gosub4aid:next 

21898 print"stosse aber nicht mit ei 
nem" 

z161 print"geisterfahrer ("rn$x1srf$ 
")zusammen!!ii" 

2178 print:forhß=1tol@d:mz=int (255% 
{rnd(123))):gosub4ailf:!next 


vor,du faeh 


‚73: poke 


3:poke 


2188 print"wenn du fertig bist ‚muss 39 


139 


en 
N 
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t du aber.......mit einem kollidier 
en" 

2198 forhß=e1toldd:mz=int (255% irndtl 
23))):gosub4ailßinext 

2288 printcels:iprint:print:print 
2216 printrn$"steuerung:” 

2228 print‘’print:print 

2238 printtab(14)"nach oben 

2248 printtab(17)rn$Sa3srt$ 

2258 printtab(17)rn$ssis$"i"sitrt$ 
2288 printtab(1?)rn$a3srf®$ 

2278 print 

2288 printtabt12)rn$a3s$rt$stab(22)rn 
$agtrt$ 

229% print” nach links "rn&sis"j"si 
Srfstab (22) rn$sis"l"si$rf$sis"nach 
rechts" 

2388 printtabti2)rn$a3$rtf$stab(22)rn 
$a3$rf$ 

2318 print 

2328 printtab(1?)rnS$a3ftrt$ 

2338 printtab({17)rn$si$"k"sitrt$ 
2348 printtab(1?)rn$a3$rt® 

2359 printtabti14)"nach unten " 


2358 print:print 

2379 printtabtil)"(taste druecken!) 
2338 getus: ifus=""goto238d 

2398 return 


2458 sm=542?72: hf=sm+livo=ssmt24:sz=s 
m+4:tori=smtosm+24:pokei,®:next 
2418 gosub2488: printchrs(14?),chr$t( 


dr=33: zd=32: fu=3 
z$="j n 
pokesm+5,8:pokesm+5,8:return 
2459 data 
169,98,141,32,2@8,1941,33,268,141,8,4 
„191,1,4 

2469 data 
141,2,4,169,149,191,0,221,169,5,141 
‚24 

2478 data 
2988,169,128,141,136,2,133,56,96,96 
2488 for i=509099t059935:reada:pokei, 
asnext 

2494 sys5@ßgad:printcl$ 

2599 return 

251@ rem lastwagenfahrt==========653 
2529 rem 38911 bytes memory 
2539 rem 88119 bytes program 
25489 rem B0009 bytes variables 
2552 rem dnada bytes arrays 
2549 rem deddga bytes strinygs 
2574 rem 390792 bytes free 


EZ 


nem N 


[I | Busse | Base | u | Eu | 
I. Be 


na mm N 
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Dieses Spiel macht es mög- 
lich, Pferderennen im 
Wohnzimmer zu erleben 
und auch am Wettfieber 
teilzuhaben, wie beim 
echten Rennen. Bis zu 
neun Personen können 
ihre Wetten abgeben und 
mit etwas Glück auch die 
Gewinne einstreichen. 
Nach RUN wird das Spiel- 
feld aufgebaut. Darauf 
beginnen die acht Pferde 
am oberen Spielfeldrand 
zu laufen. Von nun an ist 
der Totalisator bereit, 
Ihre Wetten anzunehmen, 
bis das erste Pferd die 
Markierung vor dem En- 
de der Bahn erreicht hat. 
Dann verkündet die 
Glocke, daß keine Wetten 
mehr angenommen wer- 
den. Das Rennen ist zu 
Ende, sobald die ersten 
drei Pferde durch das 


- Ziel gegangen sind. 


Jeder Spieler erhält eine 
Zahl von eins bis neun. 
Will er nun eine Wette 
abgeben, drückt er zuerst 
die Taste mit der, seiner 
Zahl entsprechenden, 
Ziffer. Sofort wird das 
Rennen neutralisiert. 
Auch die Zeit wird an- 
gehalten, die während 
des Rennens immer in der 


. 


Wer gewinnt? 


Mitte des unteren Spiel- 
feldrandes abgelesen wer- 
den kann. Danach wech- 
selt die Farbe des Spiel- 


 feldes und der Cursor er- 


scheint. Die Reihe des be- 
treffenden Spielers er- 
scheint nun revers und 
der Cursor steht im Sieg- 
feld des ersten Pferdes. 
Bewegen Sie nun den Cur- 
sor mit der Taste 
“CURSOR RECHTS“ 
oder “CURSOR LINKS“ 
auf die Wette, die Sie 
setzen wollen. Geben Sie 
dann eine Ziffer von 


ee ss eek —— nn 


1 — 9 ein. Der Betrag 
wird auf das entsprechen- 
de Pferd Sieg oder Platz 
gesetzt. Danach können 
Sie weitere Wetten ab- 
schließen. Es ist auch mög- 
lich, einen bereits gesetz- 
ten Betrag zu erhöhen. 
Dazu wird einfach auf 
das gewünschte Feld der 
neue Wert eingegeben. 

Es ist aber nicht erlaubt, 
eine Wette zu annulieren 
oder einen niedrigeren 
Wert zu setzen. 

Hat der Spieler seine 


Wetten abgeschlossen, 
gibt er RETURN ein. Dar- 
auf kann ein anderer Mit- 
spieler durch Eingabe sei- 
ner Kennziffer seinen 
Willen zur Abgabe der 
Wetten erklären. Wenn im 
Moment keine Wetten ab- 
zugeben sind, läuft mit 
RETURN das Rennen 
weiter, bis wieder jemand 
seine Kennziffer eingibt, 
oder die “NICHTS GEHT 
MEHR“-Marke erreicht 
ist. 

Bis hier hat unser C64 
alle Einsätze gespeichert 
und zeigt im Mittelfeld 
an, was jeder Wetter an 
die Bank zu zahlen hat. 
In weiteren Runden wird 
dort auch der Gewinn 


verbucht, sodaß jeder 
Spieler zu jeder Zeit sei- 
nen Kontostand ablesen 
kann. 

Unter den Feldern Sieg 
und Platz erscheint der 
Gesamteinsatz für diesen 
Spieler im laufenden 
Rennen. In der Mitte wird 
das Guthaben der Bank 
angezeigt. 

Ist das Rennen gelaufen, 
werden die Quoten errech- 
net. Dabei wird nur die 


. ganze Zahl berücksichtigt, 


ein eventueller Rest wird 
den Platzwetten zuge- 
schlagen. Im oberen Mit- 
telfeld wird nun der erste 
Gewinner einer Siegwette 
mit seinem Gewinn ange- 
zeigt. Hat er sich über- 
zeugt, daß alles seine Rich- 
tigkeit hat, gibt er 
RETURN ein und der Ge- 
winn wird verbucht. So 
geht es weiter mit dem 
nächsten Gewinner, bis 
alle Siegprämien ausge- 
zahlt sind. Ist dies ge- 
schehen, oder gibt es kei- 
nen Gewinner auf Sieg, 
wird die Quote für die 
Platzwette errechnet. Hier 
werden die ersten drei 
Pferde berücksichtigt. 
Der gesamte, noch in der 
Bank befindliche Betrag 


wird verteilt, also auch ein 
eventuel vorhandener Rest 
aus der Siegwette, oder 
einem vorangegangenen 
Rennen. Auch hier wer- 
den nur volle Beträge aus- 
gezahlt, der Rest bleibt 

in der Bank für das näch- 


„ste Rennen. Die Auszah- 


lung der Gewinne erfolgt 
nach dem gleichen Modus, 
wie bei der Siegwette. 
Damit ist ein Rennen zu 
Ende. Mit der Eingabe 
von ‘“J“ oder ““J“ kann 
ein neues Rennen gestar- 
tet, oder das Spiel abge- 
brochen werden. 

Alle acht Pferde starten 
gleichzeitig und haben die 
gleiche Chance, die für 
jede Bewegung durch die 
RND-Funktion ausge- 
wählt wird. Das Rennen 
dauert etwa 10 Minuten. 
Wenn dies zu lange dauert, 
kann durch Betätigen der 
F1-Taste der Durchlauf 
auf etwa fünf Minuten be- 
schleunigt werden. Die 
F3-Taste verlangsamt den 
Ablauf wieder auf das 


normale Tempo. Diese 
beiden Tasten wirken nur 
bis zum Erreichen der 
Grenze aus Doppelpunk- 
ten. Diese Grenze, ab der 
nichts mehr geht, kann je 
nach Wunsch auch wäh- 
rend des Rennens mit der 
Cursortaste nach links 
oder rechts innerhalb ei- 
nes. bestimmten Bereiches 
verschoben werden. 
Sobald das erste Pferd die- 


“ se Grenze überschrittten 


hat, ist diese Möglichkeit 
nicht mehr gegeben. Man 
kann nur noch das Ende 
des Rennens abwarten. 
Um das Wetten zu erleich- 
tern, erscheint kurze Zeit 
nach Beginn die Anzahl 
der von jedem Pferd zu- 
rückgelegten Schritte. 

So kann man aüch bei 
Kopf an Kopf-Rennen 
deutlich sehen, welches 
Pferd vorne liegt. Bald 
darauf erscheinen auch 
die Nummern der Pferde 
und folgen diesen in kur- 
zen Abständen. 


WAHL- 
ERGEBNIS 


Das kleine Programm hat 
“Allround-Charakter“ 
und ist für grafische An- 
wendungen überall einsatz- 
bereit. 

Ziel war es, ein schnelles 
Balken-Diagramm auf den 
Bildschirm zu bringen. 
Jeder C-16, 116-Besitzer 
weiß, daß der Graphic- 
Modus mit HIRES & 
DRAW recht saubere Dar- 
stellungen bietet, die aber 
mit erheblichen Einbußen 
an Tempo, Speicherplät- 
zen und Prints erkauft 
werden. Hinzu kommt die 
leidige Tatsache, daß der 
C-16/116 — im Gegensatz 
zum herkömmlichen Koor- 
dinatensystem — in der 
linken oberen Ecke (0/0) 
mit der Positionszählung 
beginnt. 

Aus diesem Grund wurde 
die maschinennahe POKE- 
GRAFIK gewählt. Unser 


Anwendungsfall behandelt 
Wahlergebnisse. 

Die Prozent-DATA-WERTE 
werden durch das 1. Unter- 
programm (110-150) in 
das DIM-Feld ‘““P“ eingele- 
sen. In Zeile 160 startet 
das 2. Unterprogramm mit 
der POKE-GRAFIK. Inner- 
halb der Schleife werden 
die Parameter für Abstän- 
de und Höhe der 
“BALKEN“ berechnet und 
dargestellt. Als Basis dient 
die 25. Zeile des Bildspei- 
chers (4032--4071D). 
Nach fünf Umläufen er- 
folgt der Sprung zur 
“CHAR-Abteilung‘“, die 
für die Einblendung der 
Parteinamen und Prozent- 
werte sorgt. Der störende 
“READY-Ausdruck“ wird 
mittels einer Warteschleife 
dynamisch gestoppt. Das 
Programm wird mit der 
STOP-Taste angehalten. 3» 
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TUT mm m mp er 


« 


Fieberkurve 


19 rem fieberkurve =============c016 
22 rem (p) commodore welt 


48 rem {c) by 
Sg rem paul saar 


?7@ rem version 3.5 4@z/ascii 
8% rem clö/ciliö/plus 4 + 1531/1541 >= 


188 araphic9,i 

118 scncelr 

12% print"es wird behauptet,die com 

modare...2..:,C 16, 1164,plus4 waeren 
tot," 

13% print" mit einfachen befshlen 

des graphicbe- reiches lassen sic 
h die vorteile..." 

148 print" der vorgenannten comput 

er richt von.....der hand weisen !" 
15@ print"auch 64 freaks muessen zu 
geben „ das erweiterte basic 3,9 
wuerde" 

16% print" 64 programmierernr die a 
rbeit stark......erleichtern.”" 

1?@ print"..beispiel: erstellung ei 
ner fieberkurve” 

188 for t=1 tolzd@g:nextt 

198 scncelr 


z#8 print" fieberkurve erstellen" 


218 input" MONnat.sıas rasen Ei 
228 input” WEITE. eure ann END 
23@ scnhcelr 


242 graphic2,1 

2S5A x=satdiamsıtd 

289 draul,9,xto 328,x 

276 ifx=> 1l6ßthen x=d:gato29d 
2838 goto258 

298 y=bt94 :b=y+t4 

3894 draul,y,d to y, 16% 
319 ify=> 32@then goto 339 
328 goto2P& 

338 char1,5,19,"12345687898123456787 
912345678998123945" 

398 char1,1,18,"368,%" 

359 char1,4,17,"1" 

368 char1,4,16,"2" 

378 char1,94,15,"3" 

388 char1,4,14,"4" 

3979 char1,4,13,"5" 

a8@ char1,4,12,"6" 

418 char1,4,11,"7" 

428 char1,94,19,"8” 

434 char1,4,9,"9" 

44@ char1,1,8,"37,#" 

459 char1,94,?,"1" 

468 chari1,4,6, "2" 

4729 char1,9,5,"3" 


8979 rem AROAAG bytes arrays 


459 char1,4,49,"4" 

478 char1,4,3,"5" 

S69 char1,4,2,"6" 

518 char ,4,;,1,"2” 

528 char1,19,1,m& 

538 chart,29,1,n$ 

Saga c=äg j 

SS@ draw1,49,1453 

SEI PEINE "en an ni in nn nn nn nn ana at mn 


DEI PEINE N ie ann are lan nn ae ne 

58@ input" temperatureingabe in gr 

ad celsius..:....136.9-37.”)..tag 1 

-31. "ID 

578 vol8 

sga ifb=i35.7 or b=>3?.8then print" 
falsche eingabe ":soundil,599,10:9g 

oto3äg 

61a ifb=36.fthena=195 

s2g ifb=I64.1thena=14d 

6386 itfb=3%.2thena=132 

#98 ifb=38.3tnena=124 

&59 ifb=75. äthena=s116 

69 ifb=368.5thena=195 

Hre itb=36.dthena=lfd 

839 ifb=36,7thena=92 

89768 ifb=34.8thena=sd 

799 itb=36.9thena=?6 

12 ifb=37.@thena=s9 

729 itb=3?.1thena=ös® 

738 i#fb=737, ?Zthena=52 

748 ifb=37,3thena=dg 

759 1f6b=37. ädäthena=3ä 

7682 ifb=37.5thena=23 

?rE itb=37. öthena=2d 

af itb=37?.?7thena=12 

778 drautoc,a 

SI9 c=c+t8 

S1ı8 ifco=>2835 then goto 838 

329 goto3sfg 


838 print " eingaben beendet" 
299 end 
8I9 rem fieberkurve ===-=S=2===22==[ 


SA rem 912277 bytes memory 
STE rem A@24AF bytes programm 
Ssa2 rem Blagag bytes variables 


sad rem SA9BRA bytes strings 
F1@ ren MRSRaT bytes fre {9 
9?74 rem <=a=r==2=2=2=222memmesseasmemesee 


Na 
BI ES SON 


Pferderennsen 


rem 
rem 
rem 


pferderennen =zauzssanenzendd 
BEZ2SIRRNSgzsansmymmamuuzunmummzm 
(p) commodore welt = 
rem 753232225 ZSZISszz2ssuszseszeumyuszmun 
rem (c) by guenter kramer = 
rem = 
rem version 2,8 4@ z/ascii m 
rem c 64 + 1534/1541 = 
rem S=ZE2S2ZS27225zumzssezzzeseun 
printchrs(1S@) chrst147)5 
gosub320 

gosub11?@ 

a=sint(rndt(ta)%8) 
ifpta)=322then128 
pla)=pla)+ttiift=1theni4® 
if(plta)Jandi)=ithenp(a)=p(la)-i 
ifp(a) >32thengosub?74% 
ifpta)=32@t hen26% 

b=p(a):bsint (b/8) 
al=1924+4@%atb 
pokeal,ztpta)-8%b+1)ori123 
ifp(a)-S%b=dthenpokeal-1,169 
ifpta)<ö4then2sg 

al=85%int(al/8) 

pokeal-18,16% 

pokeal-2,ar49 

geta®: ifa$t)""thengnsub1729 
ifptla) >rigthengosub934 

gosub 1389: ifs(3then120 
y3asub2489: yosub3288 

poke53281,9 
poke214, 24: poke211,9:sys393649 
fori=Ato?:printinext 
pake214, 19: poke211,19:8y35936448 
printchr&(18) "neues rennen ?" 
getaß: ifas=""then3äg 
ifas<>"j"thenend 

PP=FE:Ssp=% 

s=9:s5i=-f:pl=d 
fori=dtoalS:Forj=ßtor 

pfti,j)=®@ 

nextj,i 

fori=gto? 

pli)=g 

next 

printchrst15ß8)chrst(147)35 
gosub6&s5d 

nz!" " 

gotol1lß 
KRRRRRRRRRTINKRTRRKRRRTH RI TNR 
KR anfangswerte setzen KK 
KERRREKRREHRRRKHRRRENKKRRKRTR RR 
z(1)=181:2(2)=84:12(3)=7lız(d)e6 


z(5)m66:12(8)=72:2(7)=89:z2(8)=18 


ar IE TE DEREN IE Ze DE IE ZECHE 
Fla)leassF (Fazit la) li) 


sd=54272: pokesd, 297 
pokesd+1,34: pokesd+3,8 
pokesd+7?, 255: pokesd+8, 34 
pokesd+19,8:pokesd+14, 231 
pokesd+15,34: pokesd+17,8 
pokesd+5,9:ipokesd+&, P!pokesd+i2 


pokesd+13, 9: pokesd+19,9 
pokesd+28,9 

dimpf 115,9)Ing=284 
poke53289, 8: poke33281,? 
fori=ßto?:foril=gto3? 
pakeSS52r6sr4@%titil,fti) 
a=slsftit=t 
ifil=sint(ng/B)thena=18d 
pokel@24+4@%iril,a 

nextil,i 

return 

KRRRRRRRRKKRKTRRRRRTRR RITTER 
XXX rennstand ausgeben K3*** 
ERRRÜRRRRKERRRKKRRTRRKTRKT RNIT 
poke214,a:poke211,9:1sys58448 
al=1:ifpta) >99thenal=g 
printchrs({18)chr$(3@)tab(al)ptia 


ifp(a)=322thengosub348 
return 
KRRKRRRRRRRKTKKKERTRRRRRRRR 
HR ziel erreicht Krt%r* 
FRRRRRRRRRRNKERTRNTIRITIN N 
segst+ti 
ifst>1lthens?% 
as="s j e g"iprintchrs(28) 1} 
ifs=e2thenas="2. platz" 
ifs=3thenas="3.,platz" 
si (s)=a: y=2:9g0sub1B28 
printtab (32) a8 
return 
KRERRRRRRTRKHNRKTRTTRTTRRNN RR 
KK nichts geht mehr KKX%* 
RRRREKRRRRRRRRRRRERRHTRRRKRRRK 
poke214,8:poke2i1l,12:35ys3586844 
ifn$=""theng=3:igosub19298 
n&="nichts geht mehr" 
printchrs$s(18)n$Sireturn 
KRRKKRRRKERRKKRRRRITRN 
*XRK% rennglocke KXH%%* 
KERRRRRRERRREÄRRRRTRRR 
pokesd+24,15 
fori=itog 
pokesd+4,85: pokesd+i11,64 
for j=Btol@d:inext 
pokesd+t11,65: pokesd+18, 644 
forj=Btol@d:inext 
pokesd+18,49: pokesd+4, 44 
forj=dtolßßd:next 
next 
pokesd+i1l,64:pokesd+i18,64 
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Fferderennen 


pokesd+24,9 

return 
KRRRRRRRRRRKRNNTRRTRRRRRR 
*X%%%* bild aufbauen #RX%* 
ERKRRRRRRRRRKKKKRKKRRRRRR 
poke214,9:poke2i11,14:5y558449 
print"pferderennen" 
printchr#(154)" sieguetten"j 
printtab (2?) "platzwetten" 
print 

ae" 234567 68" 

printast 

printspe (IR) a8 

be= " “ 3 . . & ° L a “ 
tori=dtoß 
aserights(strs(i+1),1) 
printbschr#(124) ası 

printspe (ö)chr#1t123)b# 
printchr$(1495)} 

next 

9e1d: 90sub1B28 
gosub1432:tiE="V899AR" 

return 
KERRRKRKRRKRRRRRRRKRKRKRRRR 
XXX zeit ausgeben KR 
KRRKHHRRRRKTRRRKRKRKKKRKRRRRR 
poke214, 24: poke211,18:5ys58648 
a$=mid$(ti$,3,2)+"."+rightstti 


printchrstiß)ast 

return 
KRERRRRKERNTRKEKRRERTRRRRR 
*tverschiebenn. gehtmehr* 
KRRRRRKRKIKRRRÄNRNKTRRHRR 
az=int ing/8) 

fori=dto? 

eale1W24r4Q%1ta2 

ifpeek (al)=s1iB8öthenpoksal, 16 
next 

az=Biifasc (a8)=15?thena2=-8 
ngengata2 

ifng>284thenng=234 
ifng<1@ß8thenng=188 
az=int(ng/B) 

fori=ßto? 

al=1924+40%i+ta2 
ifpeek(al)=1&@thenpokeal, 186 
next 

return 
RERRKRRRRTRRKRRRRRÄRRKERTR 
*tkausgabegewinn/verlust?%%*%* 
RRERKKKKRKTTRRTTTRTKTTTTTTT 
ori=1to? 
poke214,13+i:poke211,18:8y8586 
as=erightst" "+str$(5(i)),6) 
printas 

next 


return 

KRRRRRKRRRIKRKTRRRRRR 

X3%%* einsaetze XXEX* 
RRRRRRRRRRRKRTNRRKKTRR 
z$=eti®siifns<s>""thenreturn 
a=sval(a®):ifasc (a®)=133thent=2 
ifasc(a®s)=134thent=el 

ifasc (a8) =27thengosub 14568 
ifasc (3$) =15?thengosub 1458 
ifa<lora>?thenti®=ezsireturn 
pokeS3281,@:9=1:90sub1928 
poke214,8:poke211,8:5y558449 
printchr#s(18) "neutralisiert"j 
printcehr#s(18)tab(31)"spieler 


al=l1a24+ tiAra)Kd-A48 
fori=altoal+s? 
pokei,peekti)ori28 

next 

gosub2828 
poke?B8l,8:5y4559983 
al=192A+t14+a) 40-40 
fori=altoal+3? 
pokei,peekti)andi2? 

next 
poke214,8:poke211,31:5ys55864% 
poke53281,7 
printchr$t18)"spieler ?" 
getaß: ifa®=""then195g 
poke?81,8:35y559963 
poke53261,7 

g3oto1l?38 
RERRKRRRRKKRKKTHRTINITTRTN NR 
*%%verbucheneinsaetzetXt#%%* 
KRERRKKRTRRKTTKRKTTITTTTTN 
ar=f 

as3=peektal+ta2)andi2? 
ifa3<48thena?=4B 
pokeal+ta2,peek(alta2)andi2? 
fori=eltoginext 
pokeal+a2,peektal+a2)or128 
tori=1to3ß:next 

getaß; ifas=""then2a5g 
ad=asc (3%) 
ifa9g=13thenreturn 
ifas<>29then21?8 

a2=a2t+2 

ifa2elöthena2=23 
ifa2=4lthena2= 

3002838 

ifa4<>157then2229 

a2=a2-2 

ifa2=-2thena2=39 
ifa2=23thena2=14 

9002938 
ifa4<49ora4>57orad<sa3then2958 
a3=-a4-a3 

pokealta2,ad 


Pferderennen 


ag=a4-48 

s(a)=8(a)-a3 

as=erights(". .uuoe "+strs$(sia) ) ‚6) 
poke214,13+a: poke211,18:5ys586 


printchrs(18)a# 

as=-int(a2/2) 
ifaS5>7thenpl=pl+ta3:a5=-35-4 
ifa3<8thensi=sita3 

ba=barta3 

poke214,24: poke211,8:sys58449 
a$=str$(si) 
printtab(?-len(a®) /2)a$j 
as=strstp]) 
printtabt32-len (as) /2)a$} 
as=rights(" "+str$(ba),6) 
poke214,11:poke211,17:1sys58649 
printchrs$s(18)3% 
pfta5,a)=pf(aS5,a)ta3 
goto213@ 

return 
ERRKERRTRRRRRRKRKKRRITRNR NR 
KR rennen zu ende ##%%%* 
KRRRÜRKRKERRRKKKRRTTHTRRTRR 
poke214,8:poke21ll,12:87559449 
n&=" rennen zu ende " 
printchrst18)n$ 
al=1924+13%49 
pp=®:sp=d:g=19:g0s5Uub1928 
fori=ito9: a4=d 
a3=ssi(l):a2=pf (a3,ij) 
ifa2=@then25sg 

sp=spt+ta2 

gosub2838 

a4=9 

a3=sitl)+S:aZ=pf (a3, 1) 
ifa2=@then282% 

Pp=pp+ta2: gosub2839 

a3=si (2) +8: a2=pf (a3, i) 
ifa2=dthen265% 

pp=pp+ta2: g9g0osub2839 

a3=s1 (3) +B: a2=pf (a3,i) 
ifa2=@then?243@ 

PP=pp+ta2: gasub2838 

next 

as=sp 

ifsp’ßthensp=int (si/sp) 
poke214,23:poke21l1,8:sys58448 
at="quote ="+stre(sp) 
printchr#(18)a# 

ad=ba-spra 

ifpp?’@thenpp=int ta4/pp) 
s8="quote ="+strs(pp) 
poke214, 23: poke2il1l,25: sysS8ö4d 
printchrs${18)a8$ 

return 
KRRERKRRKKRRHEKHRFTRTTTTTT N 
XKIRr setzen gewminn KERRR 


KRRRRKRRRERRRRKRRRRKKRRRNR 
a33=24@X1+2%a3tal+rad 
pokea3, peek (a3) ori128 

return 
KRRKRIRRRRRRTKKRRKRRHRRRIRN 
RR auszahl-fenster KKXK%* 
KRRKKRRRRKRRKKKRRKTNRRKRNNN NK 
fori=3t08 

for j=?to2? 

pokeb+49%i+j,32 
ifi=8thenpokeb+t4öxirj, 14 
nextj,i 

poake214,8: poke2l1,1%:s5ys58449 
print'auszahlung" 
print:print 
printtab(i4)chr&st18) "quote ="a 
print 
printtabti@)"nr. einsatz sewi 
printia2=ß 

return 
KRRRERKRRRRRRTRRRRTRTRTRRN TH 
X gewinn errechnen X#%%* 
KERRKKKRRKRRRKHTRTRRTR TR INNN 
poke214, ?ıpoke2ll, 19: sys38448 
al=matadı a2=il 


as=rightsl" 2... "tstr&(al),?) 
bs=eright$t",...."+str®(la),ö) 
printi" "bs" "as 


getaß: ifaß=""then31l9d 
sti)essti)+talibasba-al 
a$=right$t"...."+str&tba),6) 
poke214,11:poke211,17:sys58448 
printchrs(i8)a# 
as=erights(t",..."+strö(ts(i)),6) 
poke214,13ri:pokeZi1l,18:5ys584 


printas 

return 
KRRREREKRERKKKTRRRRRRRRRNR 
RRRKR kein gewinner #RKR* 
KRRRRRRRKKKKKRRERTRRTHRNN 
poke214,?7:poke2Zil, 19: 5y3558449 
printtab(13)"kein gewinner" 
return 
KRRRRRRRRRRRRTRRRRRKRRKTRRTR 
*%%%% auszahlen gewinn KIIX* 
KRRERKRRRKRRREKNTRTHNNTHNT NN N 
b=1824:1=53296 - 

a=sp 

yosub28P8 
poke214,2:poke211,18:5ys58648 
print"sieg = pferd nr. "sitl)* 


fori=1to9 

a=pf (sitl),i) 

a4=sp: ifa>@thengosub3#58 
next 
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Pferderennen- = 2 Schutz _ ı — 


ifaZ=eföthengosub322% 

getas: ifa$=""then3388 

a=pp 

g9osub2898 
poke214, 2: poke211,19:15y559649 
342% print"platz = 

nr. "sitli)+tisit2)+tisi (3) +1 


3438 fori=1t0? 

3448 a=pftsi(il)+8,i) 

34598 a=atpf (si(2)+8,i) 

34658 a=at+rpf(si(3)+8,i) 

3478 a4=pp 

3488 ifa>öthengosub3258 

3498 next 

35988 ifa2=dthengosub3228 

3518 

3528 

3538 

3548 rem 938911 bytes memory == 
3558 rem 967392 bytes program == 
355886 rem #96842 bytes variables == 
3578 rem 809985 bytes strings == 
358@ rem 998933 bytes arrays == 
3598 rem 938544 bytes free == 
S6ßAfl rem SSazszzzz22uzZEz22Szammsszeeee 


wuertfteln 


wuerfeln 
(p) commodore welt 


{c) by joannis tholulis = 
hattersheim = 
sd rem = 
78 rem version 2.9 48z/ascii = 
sad rem c-64 + 1538/1591 = 
9A rem Z====2=2252222S22S52ES22S5E2ES5222=>5 
188 print chr&$t147) 

118 input"wie oft soll 
iz 

128 tor i=1 to z 

138 print chr$(19)"anzahl der wuerf 
e "ji 


ich wuerfeln 


148 weint (rndtti)%ö) +1 

158 for t=i to 6 

168 if w=t then ett)=ett)+i 

178 next t,i 

188 print chr$(147) 

198 for n=1.to 6 

288 print"zahl "n,et{in)" mal" 

zi@ next n 

228 print:print:print"noch mal (j/n 
)":input 3a$ 


238 it a$<>"n" then run 
248 print chrsti14?):end 
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18 rem 
2@ rem 
sg rem 
48 rem hier nun die 
copyrightabfrage 

S@ rem auf ’h’ in hermann 
in wellesen 

of rem 

78 if 

peek (2862)<>72orpeek (287@)<X>87thens 
ys64738:rem wenn ungleich dann 
reset 

sg rem 

98 printchrs(147)5"0.k." 


EB PET EI TEE NEPTUN EEE EEE 


{(c) by hermann wellesen 
hier beginnt däs programm 


und ’w’ 


getas: ifa$=""then351g 
return Wahlergebnisse 
Pem SS==szzZz=2=2=Z22=2Z2zmzszzzezzzsmuse 


18 rem Wahlergebnis =====616/116/+4 


28 rem (P) Commodore Welt ts = 
Ss ren sSZEF3257 337255 I EEE EB a 

aä rem (C) by K.-H. Weise = 
SA rem s=s===2=2z2=2=22=2m2s2 22mm =senen 
66 rem 


73 rem Version 3.5 49z/ASCII = 
Sg rem Plus 94/C 15/1165 + 1541 = 


199 scncelr 

118 print: print” Bundestagswahl - 

Maerz 1983 " 
1285 dim p 

let b=4932 

let d=i 

gacsub 119 

gosub 16% 

if d=sö then 

gotosf 

for z=itos 

read f 

let pt{z)=f 

next z 

239 return 

248 for i=b+5 to b+5-int(p(d) /3%*48) 

step-48 

258 poke i,97:next i 

288 let b=b+S5:let d=d+i 

return 

data 943.8,38.2,6.9,59.68,8.5,8 

char 9,1,5, "CDU": print pt1),*"%" 

char 9,7,1@,"SPD"sprint pPpl(295 "% 


(6) 
138 
148 
158 
168 
179 
188 
198 
208 
219 
228 


218 


char @,14,15"FDP":print p(3)35"% 


328 char 
a A 

33@ char 9,26,22,"sonst.":print pt{5 
) H ar AL 


348 goto34d 


#,298,19,"GRUE": print pt4)5 


N 
NN 
N 


N 


VERDIENEN SIE GELD 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116/Plus 4? Oder einen 123? Können 
Sie programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion ‚sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


MIT IHREM COMPUTER! 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette selbstverständlich zurück, 
wenn Sie einen ausreichend frankierten Rückum- 
schlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzten Sie bitte anhängendes Formu- 
ları (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete” Programme ziemlich schnell 
erkennt ). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


PROGRAMMANGEBOT 


Name des Einsenders: 
Straße/Hausnr./Tel.: 
Piz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: _ 


Beigefügt ()Listings () Kassette () Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken. Sollte es in den Kassetten-Service aufge- 
nommen werden, erhalte ich auch dafür eine entsprechende Vergütung. 


Rechtsverbindliche Unterschrift 


CW/CBM 


Postfach 1107 
8044 Lohhof 


